diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-02 07:44:43 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-02 07:44:43 +0000 |
| commit | a9bd44742b62f7b961e3c4e1eead45a9ed61c114 (patch) | |
| tree | c03fe21a9afa46b3eba9aa35c930e8dbd0d80c8a /lisp/help-macro.el | |
| parent | ea77c67fdeca515e447c28784dfec8a95134edad (diff) | |
| download | emacs-a9bd44742b62f7b961e3c4e1eead45a9ed61c114.tar.gz | |
(make-help-screen): Remove debugging code.
Diffstat (limited to 'lisp/help-macro.el')
| -rw-r--r-- | lisp/help-macro.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 2e1f88f0a40..1001986c168 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -114,7 +114,6 @@ and then returns." (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 @@ and then returns." (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) |