; Fix formatting of last change.
This commit is contained in:
parent
f7b408ec50
commit
bddd9c5f68
1 changed files with 1 additions and 2 deletions
|
@ -3249,14 +3249,13 @@ switch back again to the minibuffer before entering the
|
|||
character. This is not possible when using `read-key', but using
|
||||
`read-key' may be less 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 promp the user via GUI dialog box."
|
||||
(and last-input-event ; not during startup
|
||||
(or (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))
|
||||
|
||||
(defun y-or-n-p (prompt)
|
||||
|
|
Loading…
Add table
Reference in a new issue