Commit 508fb067 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(Fmenu_or_popup_active_p): New function.

(syms_of_xmenu): Defsubr it.
parent 5221ea0b
......@@ -1493,6 +1493,15 @@ popup_activated ()
return popup_activated_flag;
}
/* The following is used by delayed window autoselection. */
DEFUN ("menu-or-popup-active-p", Fmenu_or_popup_active_p, Smenu_or_popup_active_p, 0, 0, 0,
doc: /* Return t if a menu or popup dialog is active. */)
()
{
return (popup_activated ()) ? Qt : Qnil;
}
/* This callback is invoked when the user selects a menubar cascade
pushbutton, but before the pulldown menu is posted. */
......@@ -3775,6 +3784,7 @@ syms_of_xmenu ()
#endif
defsubr (&Sx_popup_menu);
defsubr (&Smenu_or_popup_active_p);
#if defined (USE_GTK) || defined (USE_X_TOOLKIT)
defsubr (&Smenu_bar_open);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment