From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 12 Apr 1994 21:27:27 +0000 (+0000)
Subject: (read-quoted-char): Convert meta chars into 128+ chars.
X-Git-Tag: emacs-19.34~9015
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0342b5458c557998b96884a6a9c9d57787dc2009;p=emacs.git

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

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.