diff options
| -rw-r--r-- | lisp/subr.el | 6 |
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. |
| 712 | Also, if the first character read is an octal digit, | 712 | Also, if the first character read is an octal digit, |
| 713 | we read any number of octal digits and return the | 713 | we read any number of octal digits and return the |
| 714 | soecified character code. Any nondigit terminates the sequence. | 714 | specified character code. Any nondigit terminates the sequence. |
| 715 | If the terminator is RET, it is discarded; | 715 | If the terminator is RET, it is discarded; |
| 716 | any other terminator is used itself as input. | 716 | any other terminator is used itself as input. |
| 717 | 717 | ||
| 718 | The optional argument PROMPT specifies a string to use to prompt the user." | 718 | The optional argument PROMPT specifies a string to use to prompt the user. |
| 719 | The variable `read-quoted-char-radix' controls which radix to use | ||
| 720 | for 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) |