Mercurial > emacs

changeset 12423:ee433b44920d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-help-screen): Handle help-event-list. Handle backspace like delete.
author Richard M. Stallman <rms@gnu.org>
date Thu, 29 Jun 1995 02:50:01 +0000
parents 3999c7e35227
children aa25c9b2e043
files lisp/help-macro.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))