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
4b27f17c
Commit
4b27f17c
authored
Jul 01, 1999
by
Andreas Schwab
Browse files
(Fcall_interactively): Ignore first element of
event-symbol-elements property.
parent
887f2a2d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
src/callint.c
src/callint.c
+4
-2
No files found.
src/callint.c
View file @
4b27f17c
...
...
@@ -560,7 +560,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
Lisp_Object
tem2
;
teml
=
Fget
(
teml
,
intern
(
"event-symbol-elements"
));
tem2
=
Fmemq
(
intern
(
"down"
),
teml
);
/* Ignore first element, which is the base key. */
tem2
=
Fmemq
(
intern
(
"down"
),
Fcdr
(
teml
));
if
(
!
NILP
(
tem2
))
Fread_event
(
Qnil
,
Qnil
);
}
...
...
@@ -587,7 +588,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
Lisp_Object
tem2
;
teml
=
Fget
(
teml
,
intern
(
"event-symbol-elements"
));
tem2
=
Fmemq
(
intern
(
"down"
),
teml
);
/* Ignore first element, which is the base key. */
tem2
=
Fmemq
(
intern
(
"down"
),
Fcdr
(
teml
));
if
(
!
NILP
(
tem2
))
Fread_event
(
Qnil
,
Qnil
);
}
...
...
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