diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-07 05:30:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-07 05:30:07 +0000 |
| commit | c9ca4659ed223b4e94f686a20f3a6cbc4ccfeecf (patch) | |
| tree | cd98ba898b7b055ff3208b632d1a7564e3e46aa9 /src/alloc.c | |
| parent | 52a68e986d6be6fd4bebf216e8d0dd7e24e7001e (diff) | |
| download | emacs-c9ca4659ed223b4e94f686a20f3a6cbc4ccfeecf.tar.gz emacs-c9ca4659ed223b4e94f686a20f3a6cbc4ccfeecf.tar.bz2 emacs-c9ca4659ed223b4e94f686a20f3a6cbc4ccfeecf.zip | |
(make_event_array): Ignore bits above CHAR_META.
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 |