aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/callint.c9
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\
70f -- Existing file name.\n\ 70f -- Existing file name.\n\
71F -- Possibly nonexistent file name.\n\ 71F -- Possibly nonexistent file name.\n\
72k -- Key sequence (string).\n\ 72k -- Key sequence (string).\n\
73K -- Mouse click that invoked this command (value of `last-nonmenu-event').\n\
74m -- Value of mark as number. Does not do I/O.\n\ 73m -- Value of mark as number. Does not do I/O.\n\
75n -- Number read using minibuffer.\n\ 74n -- Number read using minibuffer.\n\
76N -- Prefix arg converted to number, or if none, do like code `n'.\n\ 75N -- 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