(read-quoted-char): Don't log prompt messages.

Use M- notation instead of assuming internal layout.

diff --git a/lisp/subr.el b/lisp/subr.el
index 3bcbee52f447d6c8e9ecc9e45d40454871e11df8..baa91a4f51de3970901a8ed35c5da24e3cfabc2c 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -755,7 +755,7 @@ FILE should be the name of a library, with no directory name."
 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 @@ Optional argument PROMPT specifies a string to use to prompt the user."
             (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)