Bind "home"/"end" in help-for-help

* lisp/help-macro.el (make-help-screen): Bind "home"/"end" keys to
scrolling up/down.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 687d6fbb4eb5944da7f2beb9df25dbc7a14b1127..962bc5a8d87556bca837fcf0ae2b025aa3d6e65b 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -147,16 +147,16 @@ and then returns."
                  (while (or (memq char (append help-event-list
                                                (cons help-char '( ?? ?\C-v ?\s ?\177 ?\M-v ?\S-\s
                                                                   deletechar backspace vertical-scroll-bar
-                                                                  next prior up down))))
+                                                                  home end 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 next))
+                        ((memq char '(?\C-v ?\s next end))
                          (scroll-up))
-                        ((or (memq char '(?\177 ?\M-v ?\S-\s deletechar backspace prior))
+                        ((or (memq char '(?\177 ?\M-v ?\S-\s deletechar backspace prior home))
                              (equal key "\M-v"))
                          (scroll-down))
                         ((memq char '(down))