Mercurial > emacs
diff lisp/ehelp.el @ 3440:bccf04c8a5b6
(electric-help-command-loop): Use equal to compare
lists of events.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 03 Jun 1993 03:50:05 +0000 |
parents | 10e417efb12a |
children | 9fab557f1e16 |
line wrap: on
line diff
--- a/lisp/ehelp.el Thu Jun 03 03:48:37 1993 +0000 +++ b/lisp/ehelp.el Thu Jun 03 03:50:05 1993 +0000 @@ -127,7 +127,8 @@ (catch 'exit (if (pos-visible-in-window-p (point-max)) (progn (message "<<< Press Space to bury the help buffer >>>") - (if (eq (setq unread-command-events (list (read-event))) ?\ ) + (if (equal (setq unread-command-events (list (read-event))) + '(?\ )) (progn (setq unread-command-events nil) (throw 'exit t))))) (let (up down both neither