# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731397970 0
# Node ID fe4784e44fb1af4dd2da6180bc552a978e8a8f65
# Parent  3514a9bf50c58beef07f9205b22b876d78564081
(electric-help-command-loop): Handle any kind of event.

diff -r 3514a9bf50c5 -r fe4784e44fb1 lisp/ehelp.el
--- 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