Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2732bdbb
Commit
2732bdbb
authored
Jun 06, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(access_keymap, store_in_keymap): Discard meaningless
high bits of a character event.
parent
d4ece679
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
1 deletion
+8
-1
src/keymap.c
src/keymap.c
+8
-1
No files found.
src/keymap.c
View file @
2732bdbb
...
...
@@ -272,6 +272,10 @@ access_keymap (map, idx, t_ok)
be put in the canonical order. */
if
(
XTYPE
(
idx
)
==
Lisp_Symbol
)
idx
=
reorder_modifiers
(
idx
);
else
if
(
INTEGERP
(
idx
))
/* Clobber the high bits that can be present on a machine
with more than 24 bits of integer. */
XFASTINT
(
idx
)
=
XINT
(
idx
)
&
((
1
<<
24
)
-
1
);
{
Lisp_Object
tail
;
...
...
@@ -368,7 +372,10 @@ store_in_keymap (keymap, idx, def)
be put in the canonical order. */
if
(
XTYPE
(
idx
)
==
Lisp_Symbol
)
idx
=
reorder_modifiers
(
idx
);
else
if
(
INTEGERP
(
idx
))
/* Clobber the high bits that can be present on a machine
with more than 24 bits of integer. */
XFASTINT
(
idx
)
=
XINT
(
idx
)
&
((
1
<<
24
)
-
1
);
/* Scan the keymap for a binding of idx. */
{
...
...
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