mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 08:31:35 -08:00
Code Issues Projects Releases Wiki Activity

(make_event_array): Ignore bits above CHAR_META.

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-07 05:30:07 +00:00
parent 52a68e986d
commit c9ca4659ed
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/alloc.c
View file

@ -958,9 +958,10 @@ make_event_array (nargs, args)
for (i = 0; i < nargs; i++)
/* The things that fit in a string
are characters that are in 0...127 after discarding the meta bit. */
are characters that are in 0...127,
after discarding the meta bit and all the bits above it. */
if (XTYPE (args[i]) != Lisp_Int
|| (XUINT (args[i]) & ~CHAR_META) >= 0200)
|| (XUINT (args[i]) & ~(-CHAR_META)) >= 0200)
return Fvector (nargs, args);
/* Since the loop exited, we know that all the things in it are