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

Bind S-SPC to scroll-down in help-for-help

Browse Source 
* lisp/help-macro.el (make-help-screen): Bind S-SPC to
scroll-down.  Thanks to Dmitry Gutov <dgutov@yandex.ru>.
This commit is contained in:
Stefan Kangas 2021-05-02 12:10:54 +02:00
parent 0fe250c637
commit fb44f897d9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/help-macro.el
View File

@ -142,7 +142,8 @@ 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 ?\M-v ?\S-\s
deletechar backspace vertical-scroll-bar
next prior up down))))
(eq (car-safe char) 'switch-frame)
(equal key "\M-v"))
@ -152,7 +153,7 @@ and then returns."
(handle-switch-frame char))
((memq char '(?\C-v ?\s next))
(scroll-up))
((or (memq char '(?\177 ?\M-v deletechar backspace prior))
((or (memq char '(?\177 ?\M-v ?\S-\s deletechar backspace prior))
(equal key "\M-v"))
(scroll-down))
((memq char '(down))