Mercurial > emacs
comparison src/callint.c @ 1084:a29670271217
(Fcall_interactively): For `K', use last_nonmenu_event.
Make `e' alias for `K'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 05 Sep 1992 00:10:28 +0000 |
parents | 0abaf590e0ca |
children | eb7f1ab33a9d |
comparison
equal
deleted
inserted
replaced
1083:cbbbe0a96ecc | 1084:a29670271217 |
---|---|
64 B -- Name of buffer, possibly nonexistent.\n\ | 64 B -- Name of buffer, possibly nonexistent.\n\ |
65 c -- Character.\n\ | 65 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\ |
76 p -- Prefix arg converted to number. Does not do I/O.\n\ | 77 p -- Prefix arg converted to number. Does not do I/O.\n\ |
77 P -- Prefix arg in raw form. Does not do I/O.\n\ | 78 P -- Prefix arg in raw form. Does not do I/O.\n\ |
388 teml = args[i]; | 389 teml = args[i]; |
389 visargs[i] = Fkey_description (teml); | 390 visargs[i] = Fkey_description (teml); |
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 |
397 ? (char *) XSYMBOL (function)->name->data | 399 ? (char *) XSYMBOL (function)->name->data |
398 : "Command")); | 400 : "Command")); |