# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766186047 0
# Node ID ff8e7580e32d1fd642f5b6c8ebc64cc460f1a9ac
# Parent  e7d9adf0b7d749b268c6bec44067b8b3e5b7d347
(read-quoted-char): Convert meta chars into 128+ chars.

diff -r e7d9adf0b7d7 -r ff8e7580e32d lisp/subr.el
--- 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.