diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-02-07 21:58:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-02-07 21:58:09 +0000 |
| commit | 306e1f04e28f98b0a57b0a62fbe6c6c32b537100 (patch) | |
| tree | 39c67823934afb0868a6ffeafaf7a5e9f1508c97 | |
| parent | 3f03b24e3eddf19de992f8889287572413f4ef27 (diff) | |
| download | emacs-306e1f04e28f98b0a57b0a62fbe6c6c32b537100.tar.gz | |
(read-quoted-char): Don't log prompt messages.
Use M- notation instead of assuming internal layout.
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |