diff options
| author | David Kastrup <dak@gnu.org> | 2015-07-25 18:54:42 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2015-08-04 14:34:15 +0200 |
| commit | 5022e27dac4c13651941e425dbec5b3a2cecdae4 (patch) | |
| tree | 696d748c8abc3aea1bfd5305a8e71dc985053496 /lisp/ehelp.el | |
| parent | 227e996946d4629fa8f6d665564a37668290c87f (diff) | |
| download | emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.tar.gz | |
; Do not overwrite preexisting contents of unread-command-events
Diffstat (limited to 'lisp/ehelp.el')
| -rw-r--r-- | lisp/ehelp.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 66e4f5c633b..2e15af34a81 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -204,10 +204,10 @@ BUFFER is put back into its original major mode." (catch 'exit (if (pos-visible-in-window-p (point-max)) (progn (message "%s" (substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>")) - (if (equal (setq unread-command-events (list (read-event))) - '(?\s)) - (progn (setq unread-command-events nil) - (throw 'exit t))))) + (let ((ev (read-event))) + (if (equal ev ?\s) + (throw 'exit t) + (push ev unread-command-events))))) (let (up down both neither (standard (and (eq (key-binding " " nil t) 'scroll-up) |