Mercurial > hg > xemacs-beta

comparison lisp/help-macro.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 78478c60bfcd
children 51092a27c943
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
74 A value of nil means skip the middle step, so that 74 A value of nil means skip the middle step, so that
75 \\[help-command] \\[help-command] gives the window that lists the options." 75 \\[help-command] \\[help-command] gives the window that lists the options."
76 :type 'boolean 76 :type 'boolean
77 :group 'help-appearance) 77 :group 'help-appearance)
78 78
79 ;;;###autoload
79 (defun help-read-key (prompt) 80 (defun help-read-key (prompt)
80 (let (events) 81 (let (events)
81 (while (not (key-press-event-p 82 (while (not (key-press-event-p
82 (aref (setq events (read-key-sequence prompt)) 0))) 83 (aref (setq events (read-key-sequence prompt)) 0)))
83 ;; Mouse clicks are not part of the help feature, so reexecute 84 ;; Mouse clicks are not part of the help feature, so reexecute