# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 760175083 0
# Node ID ea9f55ec6ee9a83d7d2b014fcfa406acf6be4ba9
# Parent  48da4ed089e92252e1fd7051d6ee0877b94c80cc
(make-help-screen): Remove debugging code.

diff -r 48da4ed089e9 -r ea9f55ec6ee9 lisp/help-macro.el
--- 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)