Commit 973f1f2a authored by Chong Yidong's avatar Chong Yidong

* lisp/subr.el (read-char-choice): Use read-key. Suggested by Stefan.

* src/fns.c (Fyes_or_no_p): Minor doc fix.
parent b7617f6d
2011-01-09 Chong Yidong <cyd@stupidchicken.com>
* subr.el (read-char-choice): Use read-key.
* custom.el (custom-safe-themes): Rename from
custom-safe-theme-files. Add :risky tag.
(load-theme, custom-theme-load-confirm): Save sha1 hashes to
......
......@@ -1985,7 +1985,7 @@ keyboard-quit events while waiting for a valid input."
(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)
......
......@@ -2464,8 +2464,8 @@ DEFUN ("yes-or-no-p", Fyes_or_no_p, Syes_or_no_p, 1, MANY, 0,
doc: /* Ask user a yes-or-no question. Return t if answer is yes.
The string to display to ask the question is obtained by
formatting the string PROMPT with arguments ARGS (see `format').
The result should end in a space; `y-or-n-p' adds \"(yes or no) \"
to it.
The result should end in a space; `yes-or-no-p' adds
\"(yes or no) \" to it.
The user must confirm the answer with RET, and can edit it until it
has been confirmed.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment