* lisp/subr.el (use-dialog-box-p): Fix conditions for GUI dialogs.
This commit is contained in:
parent
fb2c440920
commit
cb8d6ab648
1 changed files with 2 additions and 1 deletions
|
@ -3540,7 +3540,8 @@ confusing to some users.")
|
||||||
(defun use-dialog-box-p ()
|
(defun use-dialog-box-p ()
|
||||||
"Say whether the current command should prompt the user via a dialog box."
|
"Say whether the current command should prompt the user via a dialog box."
|
||||||
(and last-input-event ; not during startup
|
(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
|
from--tty-menu-p) ; invoked via TTY menu
|
||||||
use-dialog-box))
|
use-dialog-box))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue