emacs-29 82d0b6c64ea: ; * lisp/subr.el (use-dialog-box-p): Fix last change.

[Eli Zaretskii]

branch: emacs-29
commit 82d0b6c64eaaa5d7de2bb0653cec60fabada5643
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; * lisp/subr.el (use-dialog-box-p): Fix last change.
---
 lisp/subr.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index cf6500d32c7..131ed110149 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3538,10 +3538,9 @@ confusing to some users.")
 (defvar from--tty-menu-p nil
   "Non-nil means the current command was invoked from a TTY menu.")
 (defun use-dialog-box-p ()
-  "Say whether the current command should prompt the user via a dialog box."
+  "Return non-nil if the current command should prompt the user via a dialog 
box."
   (and last-input-event                 ; not during startup
-       (or (and last-nonmenu-event      ; nil is listp...
-                (listp last-nonmenu-event))   ; invoked by a mouse event
+       (or (consp last-nonmenu-event)   ; invoked by a mouse event
            from--tty-menu-p)            ; invoked via TTY menu
        use-dialog-box))