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

lists of events.
1993-06-03 03:50:05 +00:00
parent 7dc8eff950
commit 70447f8cea
1 changed files with 2 additions and 1 deletions
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -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