diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-06-07 20:53:07 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-06-07 20:53:07 +0000 |
| commit | f40ba9f3a8bb3267282b074d881f0b5dfe4c2340 (patch) | |
| tree | 259e0c43c8f88ed8c0c1b5512dd7a493a53dd730 /lisp/subr.el | |
| parent | 286dce1749bee22e14b54278d1ba5bc104e27af9 (diff) | |
| download | emacs-f40ba9f3a8bb3267282b074d881f0b5dfe4c2340.tar.gz | |
(read-quoted-char): Turn on help-form and turn off help-char.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 93165de8c00..36c61513864 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -708,7 +708,11 @@ Optional argument PROMPT specifies a string to use to prompt the user." (let ((message-log-max nil) (count 0) (code 0) char) (while (< count 3) (let ((inhibit-quit (zerop count)) - (help-form nil)) + ;; Don't let C-h get the help message--only help function keys. + (help-char nil) + (help-form + "Type the special character you want to use, +or three octal digits representing its character code.")) (and prompt (message "%s-" prompt)) (setq char (read-char)) (if inhibit-quit (setq quit-flag nil))) |