Commit c9ca4659 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(make_event_array): Ignore bits above CHAR_META.

parent 52a68e98
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment