diff options
| author | Richard M. Stallman | 1997-05-09 06:31:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-09 06:31:04 +0000 |
| commit | 637b47089a15630a429bc81f660f5ff6bcc18362 (patch) | |
| tree | ae744864b1b9e0af09a0f7d11f1912a6f7d3968f | |
| parent | a47e454e39d116735998b703a9a189043a6ed28e (diff) | |
| download | emacs-637b47089a15630a429bc81f660f5ff6bcc18362.tar.gz emacs-637b47089a15630a429bc81f660f5ff6bcc18362.zip | |
(read-quoted-char): Don't mask down to 8 bits.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index ccd08a52cd0..a4ad6937f43 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -639,7 +639,7 @@ or three octal digits representing its character code.")) | |||
| 639 | (t (setq code char count 259)))) | 639 | (t (setq code char count 259)))) |
| 640 | ;; Turn a meta-character into a character with the 0200 bit set. | 640 | ;; Turn a meta-character into a character with the 0200 bit set. |
| 641 | (logior (if (/= (logand code ?\M-\^@) 0) 128 0) | 641 | (logior (if (/= (logand code ?\M-\^@) 0) 128 0) |
| 642 | (logand 255 code)))) | 642 | code))) |
| 643 | 643 | ||
| 644 | (defun force-mode-line-update (&optional all) | 644 | (defun force-mode-line-update (&optional all) |
| 645 | "Force the mode-line of the current buffer to be redisplayed. | 645 | "Force the mode-line of the current buffer to be redisplayed. |