Mercurial > emacs

diff lisp/subr.el @ 112171:1c4c22434b0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/subr.el (read-char-choice): Use read-key. Suggested by Stefan. * src/fns.c (Fyes_or_no_p): Minor doc fix.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 09 Jan 2011 09:26:29 -0500
parents fd05a6b39a42
children 28f569136b3e
line wrap: on
line diff
--- a/lisp/subr.el	Sat Jan 08 23:59:56 2011 -0500
+++ b/lisp/subr.el	Sun Jan 09 09:26:29 2011 -0500
@@ -1985,7 +1985,7 @@
       (unless (get-text-property 0 'face prompt)
 	(setq prompt (propertize prompt 'face 'minibuffer-prompt)))
       (setq char (let ((inhibit-quit inhibit-keyboard-quit))
-		   (read-event prompt)))
+		   (read-key prompt)))
       (cond
        ((not (numberp char)))
        ((memq char chars)