From c9ca4659ed223b4e94f686a20f3a6cbc4ccfeecf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Jun 1993 05:30:07 +0000 Subject: [PATCH] (make_event_array): Ignore bits above CHAR_META. --- src/alloc.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index a6f554ad086..e78db2af9a6 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -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