Mercurial > emacs

changeset 3536:58d5ee6ec253

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make_event_array): Ignore bits above CHAR_META.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jun 1993 05:30:07 +0000
parents 581c09f72dbd
children 22055fd47b78
files src/alloc.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Mon Jun 07 05:29:40 1993 +0000
+++ b/src/alloc.c	Mon Jun 07 05:30:07 1993 +0000
@@ -958,9 +958,10 @@
 
   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