# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804394201 0
# Node ID ee433b44920d73a5ab9d436db6a40960cc373af3
# Parent  3999c7e35227dff715e5854da875017b56042dbe
(make-help-screen): Handle help-event-list.
Handle backspace like delete.

diff -r 3999c7e35227 -r ee433b44920d lisp/help-macro.el
--- a/lisp/help-macro.el	Thu Jun 29 02:23:21 1995 +0000
+++ b/lisp/help-macro.el	Thu Jun 29 02:50:01 1995 +0000
@@ -112,7 +112,8 @@
 			       (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 @@
 			   (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 @@
 				       (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))