From 873dd80b922170718bb9130dcc8db2a868fbc52d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Jun 1995 02:50:01 +0000 Subject: [PATCH] (make-help-screen): Handle help-event-list. Handle backspace like delete. --- lisp/help-macro.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/help-macro.el b/lisp/help-macro.el index bd129a8aed8..096de16ee2c 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -112,7 +112,8 @@ and then returns." (setq key (lookup-key function-key-map key))) (setq char (aref key 0))) (setq char ??)) - (if (or (eq char ??) (eq char help-char)) + (if (or (eq char ??) (eq char help-char) + (memq char help-event-list)) (progn (setq config (current-window-configuration)) (switch-to-buffer-other-window "*Help*") @@ -125,7 +126,8 @@ and then returns." (insert help-screen) (help-mode) (goto-char (point-min)) - (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v))) + (while (or (memq char (append help-event-list + (cons help-char '(?? ?\C-v ?\ ?\177 delete backspace ?\M-v)))) (eq (car-safe char) 'switch-frame) (equal key "\M-v")) (condition-case nil @@ -134,7 +136,8 @@ and then returns." (handle-switch-frame char)) (if (memq char '(?\C-v ?\ )) (scroll-up)) - (if (or (memq char '(?\177 ?\M-v delete)) + (if (or (memq char '(?\177 ?\M-v + delete backspace)) (equal key "\M-v")) (scroll-down))) (error nil)) -- 2.39.2