Mercurial > emacs

comparison lisp/help-macro.el @ 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 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)