diff options
| author | Andreas Schwab <schwab@suse.de> | 1999-07-01 15:02:43 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1999-07-01 15:02:43 +0000 |
| commit | 4b27f17c03715aa834f38d5989ad992fbb657e06 (patch) | |
| tree | a77b958f15db133cee5e94fb123060216539a6f4 /src/callint.c | |
| parent | 887f2a2d78ed1a583ac9e2add873d8a7d6a9a245 (diff) | |
| download | emacs-4b27f17c03715aa834f38d5989ad992fbb657e06.tar.gz | |
(Fcall_interactively): Ignore first element of
event-symbol-elements property.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/callint.c b/src/callint.c index e59fd3e8530..f033d32b417 100644 --- a/src/callint.c +++ b/src/callint.c @@ -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); } |