mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(electric-help-command-loop): Use equal to compare

Browse source 
lists of events.
This commit is contained in:
Richard M. Stallman 1993-06-03 03:50:05 +00:00
parent 7dc8eff950
commit 70447f8cea
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ehelp.el
View file

@ -127,7 +127,8 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit"
(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