Mercurial > emacs
comparison lisp/ehelp.el @ 2027:fe4784e44fb1
(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 |
comparison
equal
deleted
inserted
replaced
2026:3514a9bf50c5 | 2027:fe4784e44fb1 |
---|---|
117 | 117 |
118 (defun electric-help-command-loop () | 118 (defun electric-help-command-loop () |
119 (catch 'exit | 119 (catch 'exit |
120 (if (pos-visible-in-window-p (point-max)) | 120 (if (pos-visible-in-window-p (point-max)) |
121 (progn (message "<<< Press Space to bury the help buffer >>>") | 121 (progn (message "<<< Press Space to bury the help buffer >>>") |
122 (if (= (setq unread-command-events (list (read-char))) ?\ ) | 122 (if (eq (setq unread-command-events (list (read-event))) ?\ ) |
123 (progn (setq unread-command-events nil) | 123 (progn (setq unread-command-events nil) |
124 (throw 'exit t))))) | 124 (throw 'exit t))))) |
125 (let (up down both neither | 125 (let (up down both neither |
126 (standard (and (eq (key-binding " ") | 126 (standard (and (eq (key-binding " ") |
127 'scroll-up) | 127 'scroll-up) |