diff options
| author | Eli Zaretskii | 2023-04-02 11:42:43 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-04-02 11:42:43 +0300 |
| commit | 82d0b6c64eaaa5d7de2bb0653cec60fabada5643 (patch) | |
| tree | 0d6712cf08e093910419c5d98fb66695dab8d285 | |
| parent | 3619663f9822f7732854a13e6a890cb0925fbfaa (diff) | |
| download | emacs-82d0b6c64eaaa5d7de2bb0653cec60fabada5643.tar.gz emacs-82d0b6c64eaaa5d7de2bb0653cec60fabada5643.zip | |
; * lisp/subr.el (use-dialog-box-p): Fix last change.
| -rw-r--r-- | lisp/subr.el | 5 |
1 files 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.") | |||
| 3538 | (defvar from--tty-menu-p nil | 3538 | (defvar from--tty-menu-p nil |
| 3539 | "Non-nil means the current command was invoked from a TTY menu.") | 3539 | "Non-nil means the current command was invoked from a TTY menu.") |
| 3540 | (defun use-dialog-box-p () | 3540 | (defun use-dialog-box-p () |
| 3541 | "Say whether the current command should prompt the user via a dialog box." | 3541 | "Return non-nil if the current command should prompt the user via a dialog box." |
| 3542 | (and last-input-event ; not during startup | 3542 | (and last-input-event ; not during startup |
| 3543 | (or (and last-nonmenu-event ; nil is listp... | 3543 | (or (consp last-nonmenu-event) ; invoked by a mouse event |
| 3544 | (listp last-nonmenu-event)) ; invoked by a mouse event | ||
| 3545 | from--tty-menu-p) ; invoked via TTY menu | 3544 | from--tty-menu-p) ; invoked via TTY menu |
| 3546 | use-dialog-box)) | 3545 | use-dialog-box)) |
| 3547 | 3546 | ||