diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 5 |
1 files 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 |