Mercurial > emacs
changeset 10681:14d924cf1114
(read-quoted-char): Don't log prompt messages.
Use M- notation instead of assuming internal layout.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 07 Feb 1995 21:58:09 +0000 |
| parents | 69cbb0d5671d |
| children | 5659c0885145 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)