From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 7 Jun 1995 20:53:07 +0000 (+0000)
Subject: (read-quoted-char): Turn on help-form and turn off help-char.
X-Git-Tag: emacs-19.34~3750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42e636f0407a713684c7411db6f2944bfeca4507;p=emacs.git

(read-quoted-char): Turn on help-form and turn off help-char.
---

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)))