Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c9ca4659
Commit
c9ca4659
authored
Jun 07, 1993
by
Richard M. Stallman
Browse files
(make_event_array): Ignore bits above CHAR_META.
parent
52a68e98
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
2 deletions
+3
-2
src/alloc.c
src/alloc.c
+3
-2
No files found.
src/alloc.c
View file @
c9ca4659
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment