diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-04-25 16:57:47 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-04-25 17:04:29 +0200 |
| commit | 6f9180ecb6cc681fdc55ec7cea80c5d9140e152c (patch) | |
| tree | cb08ffc74a456159865b29466a090976e7fb3970 | |
| parent | a6d40a289e2e177b2b508a3380021f66b16a1d19 (diff) | |
| download | emacs-6f9180ecb6cc681fdc55ec7cea80c5d9140e152c.tar.gz | |
Add more scroll key bindings to make-help-screen
* lisp/help-macro.el (make-help-screen): Add bindings to scroll on
<PageUp>, <PageDown>, <up>, <down>.
| -rw-r--r-- | lisp/help-macro.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 7fc128c73a9..6a0e11574c1 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -148,18 +148,23 @@ 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 deletechar backspace vertical-scroll-bar ?\M-v)))) + (cons help-char '( ?? ?\C-v ?\s ?\177 deletechar backspace vertical-scroll-bar ?\M-v + next prior up down)))) (eq (car-safe char) 'switch-frame) (equal key "\M-v")) (condition-case nil (cond ((eq (car-safe char) 'switch-frame) (handle-switch-frame char)) - ((memq char '(?\C-v ?\s)) + ((memq char '(?\C-v ?\s next)) (scroll-up)) - ((or (memq char '(?\177 ?\M-v deletechar backspace)) + ((or (memq char '(?\177 ?\M-v deletechar backspace prior)) (equal key "\M-v")) - (scroll-down))) + (scroll-down)) + ((memq char '(down)) + (scroll-up 1)) + ((memq char '(up)) + (scroll-down 1))) (error nil)) (let ((cursor-in-echo-area t) (overriding-local-map local-map)) |