Mercurial > emacs
changeset 12108:f75e47f673f4
(read-quoted-char): Turn on help-form and turn off help-char.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 07 Jun 1995 20:53:07 +0000 |
| parents | 5556c83c675a |
| children | 6be53feb3323 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Wed Jun 07 20:50:55 1995 +0000 +++ b/lisp/subr.el Wed Jun 07 20:53:07 1995 +0000 @@ -708,7 +708,11 @@ (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)))