From 5aee3a7ab1433e77a40854c1eca37c49b6b1f9e4 Mon Sep 17 00:00:00 2001 From: Gregory Heytings Date: Sun, 25 Apr 2021 13:30:15 +0000 Subject: [PATCH] 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. --- lisp/help-macro.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 96edeaf466..7fc128c73a 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -148,7 +148,7 @@ make-help-screen (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 @@ make-help-screen (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)) -- 2.30.2