diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-04 15:19:40 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-04 15:20:00 +0200 |
commit | 4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd (patch) | |
tree | 809cd1828c0e8c033e5580dc9883ac65142c9180 /lisp/emacs-lisp | |
parent | 9df72ecb6339110a0380c6faf75e7e93025bb26a (diff) | |
download | emacs-4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd.tar.gz emacs-4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd.tar.bz2 emacs-4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd.zip |
Make the NSM not pop up an X dialogue on non-mouse actions
* lisp/emacs-lisp/rmc.el (read-multiple-choice): Don't pop up X
dialogues on (url-retrieve "https://expired.badssl.com/" #'ignore)
and the like.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/rmc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el index 47f3b8dc9cf..13cd1c0f42a 100644 --- a/lisp/emacs-lisp/rmc.el +++ b/lisp/emacs-lisp/rmc.el @@ -106,7 +106,7 @@ Usage example: (setq tchar (if (and (display-popup-menus-p) last-input-event ; not during startup - (listp last-nonmenu-event) + (consp last-nonmenu-event) use-dialog-box) (x-popup-dialog t |