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>.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 132530deb3b3183503c96226298602f3e5fbdb3d..3b653c31e48c4b73c1e89b3050d84507becf91d2 100644 (file)
--- 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))