From 0342b5458c557998b96884a6a9c9d57787dc2009 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 12 Apr 1994 21:27:27 +0000 Subject: [PATCH] (read-quoted-char): Convert meta chars into 128+ chars. --- lisp/subr.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 06e2e57c0e3..6da51773429 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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. -- 2.39.5