Mercurial > emacs
changeset 24911:f477c5bb74c6
(Fcall_interactively): Ignore first element of
event-symbol-elements property.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Thu, 01 Jul 1999 15:02:43 +0000 |
| parents | b991eeca9d59 |
| children | 15cba2bd779a |
| files | src/callint.c |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callint.c Thu Jul 01 14:16:44 1999 +0000 +++ b/src/callint.c Thu Jul 01 15:02:43 1999 +0000 @@ -560,7 +560,8 @@ 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 @@ 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); }