Commit 70447f8c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

lists of events.
parent 7dc8eff9
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment