diff options
Diffstat (limited to 'src')
| -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.") | |||
| 560 | Lisp_Object tem2; | 560 | Lisp_Object tem2; |
| 561 | 561 | ||
| 562 | teml = Fget (teml, intern ("event-symbol-elements")); | 562 | teml = Fget (teml, intern ("event-symbol-elements")); |
| 563 | tem2 = Fmemq (intern ("down"), teml); | 563 | /* Ignore first element, which is the base key. */ |
| 564 | tem2 = Fmemq (intern ("down"), Fcdr (teml)); | ||
| 564 | if (! NILP (tem2)) | 565 | if (! NILP (tem2)) |
| 565 | Fread_event (Qnil, Qnil); | 566 | Fread_event (Qnil, Qnil); |
| 566 | } | 567 | } |
| @@ -587,7 +588,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.") | |||
| 587 | Lisp_Object tem2; | 588 | Lisp_Object tem2; |
| 588 | 589 | ||
| 589 | teml = Fget (teml, intern ("event-symbol-elements")); | 590 | teml = Fget (teml, intern ("event-symbol-elements")); |
| 590 | tem2 = Fmemq (intern ("down"), teml); | 591 | /* Ignore first element, which is the base key. */ |
| 592 | tem2 = Fmemq (intern ("down"), Fcdr (teml)); | ||
| 591 | if (! NILP (tem2)) | 593 | if (! NILP (tem2)) |
| 592 | Fread_event (Qnil, Qnil); | 594 | Fread_event (Qnil, Qnil); |
| 593 | } | 595 | } |