# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 792194289 0
# Node ID 14d924cf1114f3dc62b0949ca545bc2d9c0dd297
# Parent  69cbb0d5671da23d355070f103390b8353f9a110
(read-quoted-char): Don't log prompt messages.
Use M- notation instead of assuming internal layout.

diff -r 69cbb0d5671d -r 14d924cf1114 lisp/subr.el
--- a/lisp/subr.el	Tue Feb 07 21:00:28 1995 +0000
+++ b/lisp/subr.el	Tue Feb 07 21:58:09 1995 +0000
@@ -755,7 +755,7 @@
 digit, we read up to two more octal digits and return the character
 represented by the octal number consisting of those digits.
 Optional argument PROMPT specifies a string to use to prompt the user."
-  (let ((count 0) (code 0) char)
+  (let ((message-log-max nil) (count 0) (code 0) char)
     (while (< count 3)
       (let ((inhibit-quit (zerop count))
 	    (help-form nil))
@@ -772,7 +772,7 @@
 	     (setq unread-command-events (list char) count 259))
 	    (t (setq code char count 259))))
     ;; Turn a meta-character into a character with the 0200 bit set.
-    (logior (if (/= (logand code (lsh 1 23)) 0) 128 0)
+    (logior (if (/= (logand code ?\M-\^@) 0) 128 0)
 	    (logand 255 code))))
 
 (defun force-mode-line-update (&optional all)