[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master fb44f89 2/3: Bind S-SPC to scroll-down in help-for-help
From: |
Stefan Kangas |
Subject: |
master fb44f89 2/3: Bind S-SPC to scroll-down in help-for-help |
Date: |
Sun, 2 May 2021 06:22:45 -0400 (EDT) |
branch: master
commit fb44f897d9d6b1cf31961781e70af72eb328b701
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Bind S-SPC to scroll-down in help-for-help
* lisp/help-macro.el (make-help-screen): Bind S-SPC to
scroll-down. Thanks to Dmitry Gutov <dgutov@yandex.ru>.
---
lisp/help-macro.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 132530d..3b653c3 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -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))