Mercurial > emacs

comparison lisp/map-ynp.el @ 909:4c6cdb66c74c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 03 Aug 1992 02:02:37 +0000
parents f7de428cb8bf
children e18a3f6689a9
comparison
equal deleted inserted replaced
908:94eb4344341b 909:4c6cdb66c74c
116 (setq prompt (funcall prompter elt)) 116 (setq prompt (funcall prompter elt))
117 (if (stringp prompt) 117 (if (stringp prompt)
118 (progn 118 (progn
119 ;; Prompt the user about this object. 119 ;; Prompt the user about this object.
120 (let ((cursor-in-echo-area t)) 120 (let ((cursor-in-echo-area t))
121 (message "%s(y, n, ! ., q, %sor %s)" 121 (message "%s(y, n, !, ., q, %sor %s) "
122 prompt user-keys 122 prompt user-keys
123 (key-description (char-to-string help-char))) 123 (key-description (char-to-string help-char)))
124 (setq char (read-char))) 124 (setq char (read-char)))
125 (cond ((or (= ?q char) 125 (cond ((or (= ?q char)
126 (= ?\e char)) 126 (= ?\e char))