From: Gregory Heytings <gregory@heytings.org>
Date: Sun, 25 Apr 2021 13:30:15 +0000 (+0000)
Subject: Fix the handling of the Delete key in help screens.
X-Git-Tag: emacs-28.0.90~2732
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6d40a289e2e177b2b508a3380021f66b16a1d19;p=emacs.git

Fix the handling of the Delete key in help screens.

* lisp/help-macro.el (make-help-screen): Handle the Delete key
in help screens as in Emacs 23 and earlier.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 96edeaf4660..7fc128c73a9 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -148,7 +148,7 @@ 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 delete backspace vertical-scroll-bar ?\M-v))))
+                                               (cons help-char '(?? ?\C-v ?\s ?\177 deletechar backspace vertical-scroll-bar ?\M-v))))
                             (eq (car-safe char) 'switch-frame)
                             (equal key "\M-v"))
                    (condition-case nil
@@ -157,7 +157,7 @@ and then returns."
                          (handle-switch-frame char))
                         ((memq char '(?\C-v ?\s))
                          (scroll-up))
-                        ((or (memq char '(?\177 ?\M-v delete backspace))
+                        ((or (memq char '(?\177 ?\M-v deletechar backspace))
                              (equal key "\M-v"))
                          (scroll-down)))
                      (error nil))