diff options
| author | Richard M. Stallman | 1992-09-05 00:10:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-09-05 00:10:28 +0000 |
| commit | a4d4c8197b1208e68a9552fdb95dddfe90cdfaad (patch) | |
| tree | da5e65caab469c8ae1631405a3c2ed6500b4dd6c | |
| parent | 7d6de00206efe33822b90da86be372d7ac38d30d (diff) | |
| download | emacs-a4d4c8197b1208e68a9552fdb95dddfe90cdfaad.tar.gz emacs-a4d4c8197b1208e68a9552fdb95dddfe90cdfaad.zip | |
(Fcall_interactively): For `K', use last_nonmenu_event.
Make `e' alias for `K'.
| -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 45e885d2648..15a668aa5b3 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -66,10 +66,11 @@ c -- Character.\n\ | |||
| 66 | C -- Command name: symbol with interactive function definition.\n\ | 66 | C -- Command name: symbol with interactive function definition.\n\ |
| 67 | d -- Value of point as number. Does not do I/O.\n\ | 67 | d -- Value of point as number. Does not do I/O.\n\ |
| 68 | D -- Directory name.\n\ | 68 | D -- Directory name.\n\ |
| 69 | e -- Mouse click that invoked this command (value of `last-nonmenu-event').\n\ | ||
| 69 | f -- Existing file name.\n\ | 70 | f -- Existing file name.\n\ |
| 70 | F -- Possibly nonexistent file name.\n\ | 71 | F -- Possibly nonexistent file name.\n\ |
| 71 | k -- Key sequence (string).\n\ | 72 | k -- Key sequence (string).\n\ |
| 72 | K -- Mouse click that invoked this command - last-command-char.\n\ | 73 | K -- Mouse click that invoked this command (value of `last-nonmenu-event').\n\ |
| 73 | m -- Value of mark as number. Does not do I/O.\n\ | 74 | m -- Value of mark as number. Does not do I/O.\n\ |
| 74 | n -- Number read using minibuffer.\n\ | 75 | n -- Number read using minibuffer.\n\ |
| 75 | N -- Prefix arg converted to number, or if none, do like code `n'.\n\ | 76 | N -- 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 |