Mercurial > emacs

comparison lisp/map-ynp.el @ 23906:ab252c25faf9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(map-y-or-n-p): Ignore input methods.
author Karl Heuer <kwzh@gnu.org>
date Wed, 16 Dec 1998 20:45:29 +0000
parents 54fc6491e28b
children 6adb838ca6c4
comparison
equal deleted inserted replaced
23905:d36d3bab8291 23906:ab252c25faf9
147 (message "%s(y, n, !, ., q, %sor %s) " 147 (message "%s(y, n, !, ., q, %sor %s) "
148 prompt user-keys 148 prompt user-keys
149 (key-description (vector help-char))) 149 (key-description (vector help-char)))
150 (if minibuffer-auto-raise 150 (if minibuffer-auto-raise
151 (raise-frame (window-frame (minibuffer-window)))) 151 (raise-frame (window-frame (minibuffer-window))))
152 (setq char (read-event)) 152 (setq char (read-event nil t))
153 ;; Show the answer to the question. 153 ;; Show the answer to the question.
154 (message "%s(y, n, !, ., q, %sor %s) %s" 154 (message "%s(y, n, !, ., q, %sor %s) %s"
155 prompt user-keys 155 prompt user-keys
156 (key-description (vector help-char)) 156 (key-description (vector help-char))
157 (single-key-description char))) 157 (single-key-description char)))