* lisp/mouse.el (context-menu-open): New command bound to [S-f10].

* doc/emacs/frames.texi (Menu Mouse Clicks): Mention S-F10
to pop up the context menu.

* src/callint.c (Fcall_interactively):
Use inhibit_mouse_event_check for the case 'e'.
(inhibit-mouse-event-check): New variable.

https://lists.gnu.org/archive/html/emacs-devel/2021-08/msg00733.html

1 files changed, 8 insertions, 1 deletions

diff --git a/src/callint.c b/src/callint.c
index 6f8a7f13f61..5201dc7ba16 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -606,7 +606,7 @@ invoke it (via an `interactive' spec that contains, for instance, an
           break;
 
         case 'e':               /* The invoking event.  */
-          if (next_event >= key_count)
+          if (!inhibit_mouse_event_check && next_event >= key_count)
             error ("%s must be bound to an event with parameters",
                    (SYMBOLP (function)
                     ? SSDATA (SYMBOL_NAME (function))
@@ -900,6 +900,13 @@ Its purpose is to give temporary modes such as Isearch mode
 a way to turn themselves off when a mouse command switches windows.  */);
   Vmouse_leave_buffer_hook = Qnil;
 
+  DEFVAR_BOOL ("inhibit-mouse-event-check", inhibit_mouse_event_check,
+    doc: /* Non-nil means the interactive spec "e" doesn't check for events.
+In this case `(interactive "e")' doesn't signal an error when no mouse event
+is produced while using the keyboard.  Then `event-start', `event-end',
+`event-click-count' can create a new event.  */);
+  inhibit_mouse_event_check = false;
+
   defsubr (&Sinteractive);
   defsubr (&Scall_interactively);
   defsubr (&Sfuncall_interactively);