* lisp/subr.el (use-dialog-box-p): Fix conditions for GUI dialogs.

This commit is contained in:
Eli Zaretskii 2023-04-02 10:34:43 +03:00
parent fb2c440920
commit cb8d6ab648

View file

@ -3540,7 +3540,8 @@ confusing to some users.")
(defun use-dialog-box-p ()
"Say whether the current command should prompt the user via a dialog box."
(and last-input-event ; not during startup
(or (listp last-nonmenu-event) ; invoked by a mouse event
(or (and last-nonmenu-event ; nil is listp...
(listp last-nonmenu-event)) ; invoked by a mouse event
from--tty-menu-p) ; invoked via TTY menu
use-dialog-box))