Fix typo in previous change.

[gnu-emacs] / lisp / ehelp.el

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index e73fe74a124cc2c0fa99a370efd991253b628173..1dc181e198e859c068ff325ed0e635580753ebe6 100644 (file)
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -21,6 +21,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;; This package provides a pre-packaged `Electric Help Mode' for
+;; browsing on-line help screens.  There is one entry point,
+;; `with-electric-help'; All you have to give it is a no-argument
+;; function that generates the actual text of the help into the current
+;; buffer.
+
 ;;; Code:
 
 (require 'electric)
@@ -119,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