Mercurial > emacs
comparison lisp/help-macro.el @ 5741:ea9f55ec6ee9
(make-help-screen): Remove debugging code.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 02 Feb 1994 07:44:43 +0000 |
parents | 90ba98c692b5 |
children | 81290a55365b |
comparison
equal
deleted
inserted
replaced
5740:48da4ed089e9 | 5741:ea9f55ec6ee9 |
---|---|
112 (erase-buffer) | 112 (erase-buffer) |
113 (insert help-screen) | 113 (insert help-screen) |
114 (goto-char (point-min)) | 114 (goto-char (point-min)) |
115 (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v))) | 115 (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v))) |
116 (equal key "\M-v")) | 116 (equal key "\M-v")) |
117 (setq list (cons key list)) | |
118 (condition-case nil | 117 (condition-case nil |
119 (progn | 118 (progn |
120 (if (memq char '(?\C-v ?\ )) | 119 (if (memq char '(?\C-v ?\ )) |
121 (scroll-up)) | 120 (scroll-up)) |
122 (if (or (memq char '(?\177 ?\M-v delete)) | 121 (if (or (memq char '(?\177 ?\M-v delete)) |
127 (setq key (read-key-sequence | 126 (setq key (read-key-sequence |
128 (format "Type one of the options listed%s: " | 127 (format "Type one of the options listed%s: " |
129 (if (pos-visible-in-window-p | 128 (if (pos-visible-in-window-p |
130 (point-max)) | 129 (point-max)) |
131 "" " or Space to scroll"))) | 130 "" " or Space to scroll"))) |
132 char (aref key 0)))) | 131 char (aref key 0)))))) |
133 (setq list (cons key list)))) | |
134 ;; Mouse clicks are not part of the help feature, | 132 ;; Mouse clicks are not part of the help feature, |
135 ;; so reexecute them in the standard environment. | 133 ;; so reexecute them in the standard environment. |
136 (if (listp char) | 134 (if (listp char) |
137 (setq unread-command-events | 135 (setq unread-command-events |
138 (cons char unread-command-events) | 136 (cons char unread-command-events) |