aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1992-09-05 00:10:28 +0000
committerRichard M. Stallman1992-09-05 00:10:28 +0000
commita4d4c8197b1208e68a9552fdb95dddfe90cdfaad (patch)
treeda5e65caab469c8ae1631405a3c2ed6500b4dd6c
parent7d6de00206efe33822b90da86be372d7ac38d30d (diff)
downloademacs-a4d4c8197b1208e68a9552fdb95dddfe90cdfaad.tar.gz
emacs-a4d4c8197b1208e68a9552fdb95dddfe90cdfaad.zip
(Fcall_interactively): For `K', use last_nonmenu_event.
Make `e' alias for `K'.
-rw-r--r--src/callint.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/callint.c b/src/callint.c
index 45e885d2648..15a668aa5b3 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -66,10 +66,11 @@ c -- Character.\n\
66C -- Command name: symbol with interactive function definition.\n\ 66C -- Command name: symbol with interactive function definition.\n\
67d -- Value of point as number. Does not do I/O.\n\ 67d -- Value of point as number. Does not do I/O.\n\
68D -- Directory name.\n\ 68D -- Directory name.\n\
69e -- Mouse click that invoked this command (value of `last-nonmenu-event').\n\
69f -- Existing file name.\n\ 70f -- Existing file name.\n\
70F -- Possibly nonexistent file name.\n\ 71F -- Possibly nonexistent file name.\n\
71k -- Key sequence (string).\n\ 72k -- Key sequence (string).\n\
72K -- Mouse click that invoked this command - last-command-char.\n\ 73K -- Mouse click that invoked this command (value of `last-nonmenu-event').\n\
73m -- Value of mark as number. Does not do I/O.\n\ 74m -- Value of mark as number. Does not do I/O.\n\
74n -- Number read using minibuffer.\n\ 75n -- Number read using minibuffer.\n\
75N -- Prefix arg converted to number, or if none, do like code `n'.\n\ 76N -- Prefix arg converted to number, or if none, do like code `n'.\n\
@@ -390,7 +391,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
390 break; 391 break;
391 392
392 case 'K': /* Mouse click. */ 393 case 'K': /* Mouse click. */
393 args[i] = last_command_char; 394 case 'e': /* New, better name. */
395 args[i] = last_nonmenu_event;
394 if (NILP (Fmouse_click_p (args[i]))) 396 if (NILP (Fmouse_click_p (args[i])))
395 error ("%s must be bound to a mouse click.", 397 error ("%s must be bound to a mouse click.",
396 (XTYPE (function) == Lisp_Symbol 398 (XTYPE (function) == Lisp_Symbol