Mercurial > emacs

comparison lisp/ehelp.el @ 3440:bccf04c8a5b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
3439:13660e63d8f0 3440:bccf04c8a5b6
125 125
126 (defun electric-help-command-loop () 126 (defun electric-help-command-loop ()
127 (catch 'exit 127 (catch 'exit
128 (if (pos-visible-in-window-p (point-max)) 128 (if (pos-visible-in-window-p (point-max))
129 (progn (message "<<< Press Space to bury the help buffer >>>") 129 (progn (message "<<< Press Space to bury the help buffer >>>")
130 (if (eq (setq unread-command-events (list (read-event))) ?\ ) 130 (if (equal (setq unread-command-events (list (read-event)))
131 '(?\ ))
131 (progn (setq unread-command-events nil) 132 (progn (setq unread-command-events nil)
132 (throw 'exit t))))) 133 (throw 'exit t)))))
133 (let (up down both neither 134 (let (up down both neither
134 (standard (and (eq (key-binding " ") 135 (standard (and (eq (key-binding " ")
135 'scroll-up) 136 'scroll-up)