🚀 go-pugleaf

I finally fired up the debugger and tracked down a problem I have had
with "stuck cursor mode" in which the cursor gets stuck in at the left
hand edge of the window after breaking out of y-or-n-p with a ^G.

My problem was caused by the use of after-update-hook, but I suspect
the problem can also be triggered by other hooks, particularly the
after change hooks.  The hook gets invoked in the middle of the abort
(exiting y-or-n-p with ^G) which induces the bug.  Workaround follows:

;; ignore hook during y-or-n-p processing
(defvar real-y-or-n-p (symbol-function 'y-or-n-p))
(defun y-or-n-p (&rest args)
  "Protect y-or-n-p from after-update-hook"
  (let ((after-update-hook nil))
    (apply real-y-or-n-p args)
    ))

--
B<   Brian Kahn   blk@mitre.org   "may the farce be with you"