changeset 17707:857918bf965f

(read-quoted-char): Don't mask down to 8 bits.
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 May 1997 06:31:04 +0000
parents 16950c302710
children 95f0456681cc
files lisp/subr.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Fri May 09 05:19:39 1997 +0000
+++ b/lisp/subr.el	Fri May 09 06:31:04 1997 +0000
@@ -639,7 +639,7 @@
 	    (t (setq code char count 259))))
     ;; Turn a meta-character into a character with the 0200 bit set.
     (logior (if (/= (logand code ?\M-\^@) 0) 128 0)
-	    (logand 255 code))))
+	    code)))
 
 (defun force-mode-line-update (&optional all)
   "Force the mode-line of the current buffer to be redisplayed.