Mercurial > emacs

comparison lisp/map-ynp.el @ 24778:6adb838ca6c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(map-y-or-n-p): Don't inherit the current input method in read-event.
author Kenichi Handa <handa@m17n.org>
date Wed, 26 May 1999 07:40:26 +0000
parents ab252c25faf9
children cbe304a26771
comparison
equal deleted inserted replaced
24777:d9d0dd9ebcb5 24778:6adb838ca6c4
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 nil t)) 152 (setq char (read-event))
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)))