Skip to content

GitLab

Commit 1219a2a4 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

Use M- notation instead of assuming internal layout.
parent aa27fbb4
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
lisp/subr.el
View file @ 1219a2a4
...@@ -755,7 +755,7 @@ FILE should be the name of a library, with no directory name." ...@@ -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 digit, we read up to two more octal digits and return the character
represented by the octal number consisting of those digits. represented by the octal number consisting of those digits.
Optional argument PROMPT specifies a string to use to prompt the user." 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) (while (< count 3)
(let ((inhibit-quit (zerop count)) (let ((inhibit-quit (zerop count))
(help-form nil)) (help-form nil))
...@@ -772,7 +772,7 @@ Optional argument PROMPT specifies a string to use to prompt the user." ...@@ -772,7 +772,7 @@ Optional argument PROMPT specifies a string to use to prompt the user."
(setq unread-command-events (list char) count 259)) (setq unread-command-events (list char) count 259))
(t (setq code char count 259)))) (t (setq code char count 259))))
;; Turn a meta-character into a character with the 0200 bit set. ;; 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)))) (logand 255 code))))
(defun force-mode-line-update (&optional all) (defun force-mode-line-update (&optional all)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment