Mercurial > emacs

changeset 5741:ea9f55ec6ee9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-help-screen): Remove debugging code.
author Karl Heuer <kwzh@gnu.org>
date Wed, 02 Feb 1994 07:44:43 +0000
parents 48da4ed089e9
children 84cdd74ddbb0
files lisp/help-macro.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-macro.el	Wed Feb 02 07:34:08 1994 +0000
+++ b/lisp/help-macro.el	Wed Feb 02 07:44:43 1994 +0000
@@ -114,7 +114,6 @@
 			   (goto-char (point-min))
 			   (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v)))
 				      (equal key "\M-v"))
-			     (setq list (cons key list))
 			     (condition-case nil
 				 (progn
 				   (if (memq char '(?\C-v ?\ ))
@@ -129,8 +128,7 @@
 						  (if (pos-visible-in-window-p
 						       (point-max))
 						      "" " or Space to scroll")))
-				     char (aref key 0))))
-			   (setq list (cons key list))))
+				     char (aref key 0))))))
 		     ;; Mouse clicks are not part of the help feature,
 		     ;; so reexecute them in the standard environment.
 		     (if (listp char)