From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 16 Oct 2022 11:01:00 +0000 (+0200)
Subject: Bind "home"/"end" in help-for-help
X-Git-Tag: emacs-29.0.90~1616^2~587
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77d5be5877f7a6c2622d6d78d15bbfd89f8751f4;p=emacs.git

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 687d6fbb4eb..962bc5a8d87 100644
--- 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))