mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Bind "home"/"end" in help-for-help

Browse Source 
* lisp/help-macro.el (make-help-screen): Bind "home"/"end" keys to
scrolling up/down.
This commit is contained in:
Stefan Kangas 2022-10-16 13:01:00 +02:00
parent 82257951e9
commit 77d5be5877
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/help-macro.el
View File

@ -147,16 +147,16 @@ and then returns."
(while (or (memq char (append help-event-list (while (or (memq char (append help-event-list
(cons help-char '( ?? ?\C-v ?\s ?\177 ?\M-v ?\S-\s (cons help-char '( ?? ?\C-v ?\s ?\177 ?\M-v ?\S-\s
deletechar backspace vertical-scroll-bar deletechar backspace vertical-scroll-bar
next prior up down)))) home end next prior up down))))
(eq (car-safe char) 'switch-frame) (eq (car-safe char) 'switch-frame)
(equal key "\M-v")) (equal key "\M-v"))
(condition-case nil (condition-case nil
(cond (cond
((eq (car-safe char) 'switch-frame) ((eq (car-safe char) 'switch-frame)
(handle-switch-frame char)) (handle-switch-frame char))
((memq char '(?\C-v ?\s next)) ((memq char '(?\C-v ?\s next end))
(scroll-up)) (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")) (equal key "\M-v"))
(scroll-down)) (scroll-down))
((memq char '(down)) ((memq char '(down))