diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2022-10-16 13:01:00 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-16 13:03:59 +0200 |
commit | 77d5be5877f7a6c2622d6d78d15bbfd89f8751f4 (patch) | |
tree | eaf77745ac804cfc31d94e3688e77082eb63d748 | |
parent | 82257951e9794ac368c405d1ab8ec86a7c175a31 (diff) | |
download | emacs-77d5be5877f7a6c2622d6d78d15bbfd89f8751f4.tar.gz |
Bind "home"/"end" in help-for-help
* lisp/help-macro.el (make-help-screen): Bind "home"/"end" keys to
scrolling up/down.
-rw-r--r-- | lisp/help-macro.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 687d6fbb4eb..962bc5a8d87 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -147,16 +147,16 @@ and then returns." (while (or (memq char (append help-event-list (cons help-char '( ?? ?\C-v ?\s ?\177 ?\M-v ?\S-\s deletechar backspace vertical-scroll-bar - next prior up down)))) + home end 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 next)) + ((memq char '(?\C-v ?\s next end)) (scroll-up)) - ((or (memq char '(?\177 ?\M-v ?\S-\s deletechar backspace prior)) + ((or (memq char '(?\177 ?\M-v ?\S-\s deletechar backspace prior home)) (equal key "\M-v")) (scroll-down)) ((memq char '(down)) |