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) | |||
| 958 | 958 | ||
| 959 | for (i = 0; i < nargs; i++) | 959 | for (i = 0; i < nargs; i++) |
| 960 | /* The things that fit in a string | 960 | /* The things that fit in a string |
| 961 | are characters that are in 0...127 after discarding the meta bit. */ | 961 | are characters that are in 0...127, |
| 962 | after discarding the meta bit and all the bits above it. */ | ||
| 962 | if (XTYPE (args[i]) != Lisp_Int | 963 | if (XTYPE (args[i]) != Lisp_Int |
| 963 | || (XUINT (args[i]) & ~CHAR_META) >= 0200) | 964 | || (XUINT (args[i]) & ~(-CHAR_META)) >= 0200) |
| 964 | return Fvector (nargs, args); | 965 | return Fvector (nargs, args); |
| 965 | 966 | ||
| 966 | /* Since the loop exited, we know that all the things in it are | 967 | /* Since the loop exited, we know that all the things in it are |