From 306e1f04e28f98b0a57b0a62fbe6c6c32b537100 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 7 Feb 1995 21:58:09 +0000 Subject: (read-quoted-char): Don't log prompt messages. Use M- notation instead of assuming internal layout. --- lisp/subr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/subr.el') diff --git a/lisp/subr.el b/lisp/subr.el index 3bcbee52f44..baa91a4f51d 100644 --- 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) -- cgit v1.2.1