aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/subr.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 90588a90046..7f763633dfc 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -711,11 +711,13 @@ Legitimate radix values are 8, 10 and 16."
711 "Like `read-char', but do not allow quitting. 711 "Like `read-char', but do not allow quitting.
712Also, if the first character read is an octal digit, 712Also, if the first character read is an octal digit,
713we read any number of octal digits and return the 713we read any number of octal digits and return the
714soecified character code. Any nondigit terminates the sequence. 714specified character code. Any nondigit terminates the sequence.
715If the terminator is RET, it is discarded; 715If the terminator is RET, it is discarded;
716any other terminator is used itself as input. 716any other terminator is used itself as input.
717 717
718The optional argument PROMPT specifies a string to use to prompt the user." 718The optional argument PROMPT specifies a string to use to prompt the user.
719The variable `read-quoted-char-radix' controls which radix to use
720for numeric input."
719 (let ((message-log-max nil) done (first t) (code 0) char) 721 (let ((message-log-max nil) done (first t) (code 0) char)
720 (while (not done) 722 (while (not done)
721 (let ((inhibit-quit first) 723 (let ((inhibit-quit first)