Mercurial > emacs

changeset 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 13660e63d8f0
children 72ea04cee4f1
files lisp/ehelp.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ehelp.el	Thu Jun 03 03:48:37 1993 +0000
+++ b/lisp/ehelp.el	Thu Jun 03 03:50:05 1993 +0000
@@ -127,7 +127,8 @@
   (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