From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Jun 1995 02:50:01 +0000 (+0000)
Subject: (make-help-screen): Handle help-event-list.
X-Git-Tag: emacs-19.34~3436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=873dd80b922170718bb9130dcc8db2a868fbc52d;p=emacs.git

(make-help-screen): Handle help-event-list.
Handle backspace like delete.
---

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))