diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2023-04-02 10:34:43 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-04-02 10:34:43 +0300 |
| commit | cb8d6ab648fa74f03b0ba1c5f33eb53e1e017f3a (patch) | |
| tree | 33d8c934e68f817ef74fb014cd46c89efcd073e5 /lisp/subr.el | |
| parent | fb2c44092077cfffb80ba534b70d3b462093267d (diff) | |
| download | emacs-cb8d6ab648fa74f03b0ba1c5f33eb53e1e017f3a.tar.gz emacs-cb8d6ab648fa74f03b0ba1c5f33eb53e1e017f3a.tar.bz2 emacs-cb8d6ab648fa74f03b0ba1c5f33eb53e1e017f3a.zip | |
* lisp/subr.el (use-dialog-box-p): Fix conditions for GUI dialogs.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index f82826e819c..cf6500d32c7 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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)) |