diff options
| author | Gregory Heytings <gregory@heytings.org> | 2021-04-25 13:30:15 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-04-25 16:43:44 +0300 |
| commit | a6d40a289e2e177b2b508a3380021f66b16a1d19 (patch) | |
| tree | 2a8a00bc38edf8b3d134d82b8335b53cc5914589 /lisp | |
| parent | 13a248f7e7e57b7df736a7c101d8e1690ae755ac (diff) | |
| download | emacs-a6d40a289e2e177b2b508a3380021f66b16a1d19.tar.gz emacs-a6d40a289e2e177b2b508a3380021f66b16a1d19.tar.bz2 emacs-a6d40a289e2e177b2b508a3380021f66b16a1d19.zip | |
Fix the handling of the Delete key in help screens.
* lisp/help-macro.el (make-help-screen): Handle the Delete key
in help screens as in Emacs 23 and earlier.
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help-macro.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 96edeaf4660..7fc128c73a9 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -148,7 +148,7 @@ and then returns." (setq new-minor-mode-map-alist minor-mode-map-alist)) (goto-char (point-min)) (while (or (memq char (append help-event-list - (cons help-char '(?? ?\C-v ?\s ?\177 delete backspace vertical-scroll-bar ?\M-v)))) + (cons help-char '(?? ?\C-v ?\s ?\177 deletechar backspace vertical-scroll-bar ?\M-v)))) (eq (car-safe char) 'switch-frame) (equal key "\M-v")) (condition-case nil @@ -157,7 +157,7 @@ and then returns." (handle-switch-frame char)) ((memq char '(?\C-v ?\s)) (scroll-up)) - ((or (memq char '(?\177 ?\M-v delete backspace)) + ((or (memq char '(?\177 ?\M-v deletechar backspace)) (equal key "\M-v")) (scroll-down))) (error nil)) |