changeset 6838:ff8e7580e32d

(read-quoted-char): Convert meta chars into 128+ chars.
author Richard M. Stallman <rms@gnu.org>
date Tue, 12 Apr 1994 21:27:27 +0000
parents e7d9adf0b7d7
children 7cd9ecd593d7
files lisp/subr.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Tue Apr 12 21:27:10 1994 +0000
+++ b/lisp/subr.el	Tue Apr 12 21:27:27 1994 +0000
@@ -583,7 +583,9 @@
 	    ((> 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.