Mercurial > emacs

diff lisp/subr.el @ 6838:ff8e7580e32d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a379e974be7c
children ea2aef9d9f0e
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.