Mercurial > emacs
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.