Commit 07f6d4ae authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(electric-help-command-loop): Handle any kind of event.

parent d42cc509
...@@ -119,7 +119,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit" ...@@ -119,7 +119,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit"
(catch 'exit (catch 'exit
(if (pos-visible-in-window-p (point-max)) (if (pos-visible-in-window-p (point-max))
(progn (message "<<< Press Space to bury the help buffer >>>") (progn (message "<<< Press Space to bury the help buffer >>>")
(if (= (setq unread-command-events (list (read-char))) ?\ ) (if (eq (setq unread-command-events (list (read-event))) ?\ )
(progn (setq unread-command-events nil) (progn (setq unread-command-events nil)
(throw 'exit t))))) (throw 'exit t)))))
(let (up down both neither (let (up down both neither
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment