(electric-help-command-loop): Handle any kind of event.

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 327d489..e73fe74 100644 (file)
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -119,7 +119,7 @@ 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 (= (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