[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a6d40a2: Fix the handling of the Delete key in help screens.
From: |
Eli Zaretskii |
Subject: |
master a6d40a2: Fix the handling of the Delete key in help screens. |
Date: |
Sun, 25 Apr 2021 09:44:48 -0400 (EDT) |
branch: master
commit a6d40a289e2e177b2b508a3380021f66b16a1d19
Author: Gregory Heytings <gregory@heytings.org>
Commit: Eli Zaretskii <eliz@gnu.org>
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
---
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 96edeaf..7fc128c 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a6d40a2: Fix the handling of the Delete key in help screens.,
Eli Zaretskii <=