diff options
author | Eli Zaretskii <eliz@gnu.org> | 2006-11-05 12:18:47 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2006-11-05 12:18:47 +0000 |
commit | 508fb067d7fe7ee20be0dd7ca3232a3017e383f9 (patch) | |
tree | 86d3b77b5a6572528abad8151135da5ded0420d2 /src | |
parent | 5221ea0b4cc0ab4f026fa4eb230e3976ac2ab9d4 (diff) | |
download | emacs-508fb067d7fe7ee20be0dd7ca3232a3017e383f9.tar.gz |
(Fmenu_or_popup_active_p): New function.
(syms_of_xmenu): Defsubr it.
Diffstat (limited to 'src')
-rw-r--r-- | src/xmenu.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/xmenu.c b/src/xmenu.c index 7c397fbd6e1..4882f8d0d6f 100644 --- a/src/xmenu.c +++ b/src/xmenu.c @@ -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); |