From 82d0b6c64eaaa5d7de2bb0653cec60fabada5643 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 2 Apr 2023 11:42:43 +0300 Subject: [PATCH] ; * 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)) -- 2.39.2