Mercurial > emacs
comparison src/alloc.c @ 3536:58d5ee6ec253
(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 | b2e5c888f5f6 |
| children | 152fd924c7bb |
comparison
equal
deleted
inserted
replaced
| 3535:581c09f72dbd | 3536:58d5ee6ec253 |
|---|---|
| 956 { | 956 { |
| 957 int i; | 957 int i; |
| 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 |
| 967 characters, so we can make a string. */ | 968 characters, so we can make a string. */ |
| 968 { | 969 { |