Mercurial > emacs

diff lisp/ehelp.el @ 2027:fe4784e44fb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(electric-help-command-loop): Handle any kind of event.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Mar 1993 06:06:10 +0000
parents 04fb1d3d6992
children 10e417efb12a
line wrap: on
line diff
--- a/lisp/ehelp.el	Sat Mar 06 06:05:12 1993 +0000
+++ b/lisp/ehelp.el	Sat Mar 06 06:06:10 1993 +0000
@@ -119,7 +119,7 @@
   (catch 'exit
     (if (pos-visible-in-window-p (point-max))
 	(progn (message "<<< Press Space to bury the help buffer >>>")
-	       (if (= (setq unread-command-events (list (read-char))) ?\  )
+	       (if (eq (setq unread-command-events (list (read-event))) ?\  )
 		   (progn (setq unread-command-events nil)
 			  (throw 'exit t)))))
     (let (up down both neither