diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-29 02:50:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-29 02:50:01 +0000 |
| commit | 873dd80b922170718bb9130dcc8db2a868fbc52d (patch) | |
| tree | 174cd76b178d5a3bb25c3ba7245a2bbd369e8b7d /lisp/help-macro.el | |
| parent | ec3ea48827e3ab016b0e1482f13e85f5fa809d90 (diff) | |
| download | emacs-873dd80b922170718bb9130dcc8db2a868fbc52d.tar.gz | |
(make-help-screen): Handle help-event-list.
Handle backspace like delete.
Diffstat (limited to 'lisp/help-macro.el')
| -rw-r--r-- | lisp/help-macro.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index bd129a8aed8..096de16ee2c 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -112,7 +112,8 @@ and then returns." (setq key (lookup-key function-key-map key))) (setq char (aref key 0))) (setq char ??)) - (if (or (eq char ??) (eq char help-char)) + (if (or (eq char ??) (eq char help-char) + (memq char help-event-list)) (progn (setq config (current-window-configuration)) (switch-to-buffer-other-window "*Help*") @@ -125,7 +126,8 @@ and then returns." (insert help-screen) (help-mode) (goto-char (point-min)) - (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v))) + (while (or (memq char (append help-event-list + (cons help-char '(?? ?\C-v ?\ ?\177 delete backspace ?\M-v)))) (eq (car-safe char) 'switch-frame) (equal key "\M-v")) (condition-case nil @@ -134,7 +136,8 @@ and then returns." (handle-switch-frame char)) (if (memq char '(?\C-v ?\ )) (scroll-up)) - (if (or (memq char '(?\177 ?\M-v delete)) + (if (or (memq char '(?\177 ?\M-v + delete backspace)) (equal key "\M-v")) (scroll-down))) (error nil)) |