Mercurial > emacs
comparison 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 |
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) |