From: Stefan Kangas Date: Sun, 2 May 2021 10:10:54 +0000 (+0200) Subject: Bind S-SPC to scroll-down in help-for-help X-Git-Tag: emacs-28.0.90~2648 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb44f897d9d6b1cf31961781e70af72eb328b701;p=emacs.git 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 . --- diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 132530deb3b..3b653c31e48 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))