Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add more scroll key bindings to make-help-screen

Browse source 
* lisp/help-macro.el (make-help-screen): Add bindings to scroll on
<PageUp>, <PageDown>, <up>, <down>.
This commit is contained in:
Stefan Kangas 2021-04-25 16:57:47 +02:00
parent a6d40a289e
commit 6f9180ecb6
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/help-macro.el
View file

@ -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))