master 6f9180e: Add more scroll key bindings to make-help-screen

[Stefan Kangas]

branch: master
commit 6f9180ecb6cc681fdc55ec7cea80c5d9140e152c
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Add more scroll key bindings to make-help-screen
    
    * lisp/help-macro.el (make-help-screen): Add bindings to scroll on
    <PageUp>, <PageDown>, <up>, <down>.
---
 lisp/help-macro.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 7fc128c..6a0e115 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -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))