;; 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 urrent
+;; function that generates the actual text of the help into the current
;; buffer.
;;; Code:
(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