diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/callint.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/callint.c b/src/callint.c index 15a668aa5b3..a174f829dc7 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -70,7 +70,6 @@ e -- Mouse click that invoked this command (value of `last-nonmenu-event').\n\ | |||
| 70 | f -- Existing file name.\n\ | 70 | f -- Existing file name.\n\ |
| 71 | F -- Possibly nonexistent file name.\n\ | 71 | F -- Possibly nonexistent file name.\n\ |
| 72 | k -- Key sequence (string).\n\ | 72 | k -- Key sequence (string).\n\ |
| 73 | K -- Mouse click that invoked this command (value of `last-nonmenu-event').\n\ | ||
| 74 | m -- Value of mark as number. Does not do I/O.\n\ | 73 | m -- Value of mark as number. Does not do I/O.\n\ |
| 75 | n -- Number read using minibuffer.\n\ | 74 | n -- Number read using minibuffer.\n\ |
| 76 | N -- Prefix arg converted to number, or if none, do like code `n'.\n\ | 75 | N -- Prefix arg converted to number, or if none, do like code `n'.\n\ |
| @@ -183,7 +182,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.") | |||
| 183 | 182 | ||
| 184 | retry: | 183 | retry: |
| 185 | 184 | ||
| 186 | enable = Fget (function, Qenable_recursive_minibuffers); | 185 | if (XTYPE (function) == Lisp_Symbol) |
| 186 | enable = Fget (function, Qenable_recursive_minibuffers); | ||
| 187 | 187 | ||
| 188 | fun = indirect_function (function); | 188 | fun = indirect_function (function); |
| 189 | 189 | ||
| @@ -390,9 +390,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.") | |||
| 390 | visargs[i] = Fkey_description (teml); | 390 | visargs[i] = Fkey_description (teml); |
| 391 | break; | 391 | break; |
| 392 | 392 | ||
| 393 | case 'K': /* Mouse click. */ | 393 | case 'e': /* Mouse click. */ |
| 394 | case 'e': /* New, better name. */ | 394 | args[i] = last_command_char; |
| 395 | args[i] = last_nonmenu_event; | ||
| 396 | if (NILP (Fmouse_click_p (args[i]))) | 395 | if (NILP (Fmouse_click_p (args[i]))) |
| 397 | error ("%s must be bound to a mouse click.", | 396 | error ("%s must be bound to a mouse click.", |
| 398 | (XTYPE (function) == Lisp_Symbol | 397 | (XTYPE (function) == Lisp_Symbol |