Mercurial > emacs
comparison lisp/ehelp.el @ 1821:04fb1d3d6992
JimB's changes since January 18th
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 26 Jan 1993 01:58:16 +0000 |
parents | e198e33a4c09 |
children | fe4784e44fb1 |
comparison
equal
deleted
inserted
replaced
1820:b95bdb97c3e8 | 1821:04fb1d3d6992 |
---|---|
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-event (read-char)) ?\ ) | 122 (if (= (setq unread-command-events (list (read-char))) ?\ ) |
123 (progn (setq unread-command-event 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) |
128 (eq (key-binding "\^?") | 128 (eq (key-binding "\^?") |