summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-09-04 15:19:40 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-09-04 15:20:00 +0200
commit4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd (patch)
tree809cd1828c0e8c033e5580dc9883ac65142c9180 /lisp/emacs-lisp
parent9df72ecb6339110a0380c6faf75e7e93025bb26a (diff)
downloademacs-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.el2
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