# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 802558387 0
# Node ID f75e47f673f466b7ef205d82d2b1b776cad9a9bb
# Parent  5556c83c675acb1e6d51177d248bb4ef2898b654
(read-quoted-char): Turn on help-form and turn off help-char.

diff -r 5556c83c675a -r f75e47f673f4 lisp/subr.el
--- 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)))