Commit 0342b545 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(read-quoted-char): Convert meta chars into 128+ chars.

parent eb814ee1
......@@ -583,7 +583,9 @@ Optional argument PROMPT specifies a string to use to prompt the user."
((> count 0)
(setq unread-command-events (list char) count 259))
(t (setq code char count 259))))
(logand 255 code)))
;; Turn a meta-character into a character with the 0200 bit set.
(logior (if (/= (logand code (lsh 1 23)) 0) 128 0)
(logand 255 code))))
(defun force-mode-line-update (&optional all)
"Force the mode-line of the current buffer to be redisplayed.
......
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