Mercurial > emacs
diff lisp/ehelp.el @ 1821:04fb1d3d6992
JimB's changes since January 18th
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 26 Jan 1993 01:58:16 +0000 |
| parents | e198e33a4c09 |
| children | fe4784e44fb1 |
line wrap: on
line diff
--- a/lisp/ehelp.el Tue Jan 26 01:56:29 1993 +0000 +++ b/lisp/ehelp.el Tue Jan 26 01:58:16 1993 +0000 @@ -119,8 +119,8 @@ (catch 'exit (if (pos-visible-in-window-p (point-max)) (progn (message "<<< Press Space to bury the help buffer >>>") - (if (= (setq unread-command-event (read-char)) ?\ ) - (progn (setq unread-command-event nil) + (if (= (setq unread-command-events (list (read-char))) ?\ ) + (progn (setq unread-command-events nil) (throw 'exit t))))) (let (up down both neither (standard (and (eq (key-binding " ")