Mercurial > emacs
comparison lisp/subr.el @ 21008:7111f9cf9392
(read-quoted-char): Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 28 Feb 1998 19:00:34 +0000 |
parents | fea711fa5768 |
children | 582324329262 |
comparison
equal
deleted
inserted
replaced
21007:66d807bdc5b4 | 21008:7111f9cf9392 |
---|---|
709 | 709 |
710 (defun read-quoted-char (&optional prompt) | 710 (defun read-quoted-char (&optional prompt) |
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) |
722 ;; Don't let C-h get the help message--only help function keys. | 724 ;; Don't let C-h get the help message--only help function keys. |
723 (help-char nil) | 725 (help-char nil) |