diff options
| author | Lars Ingebrigtsen | 2019-09-04 15:19:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-04 15:20:00 +0200 |
| commit | 4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd (patch) | |
| tree | 809cd1828c0e8c033e5580dc9883ac65142c9180 /lisp | |
| parent | 9df72ecb6339110a0380c6faf75e7e93025bb26a (diff) | |
| download | emacs-4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd.tar.gz 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')
| -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: | |||
| 106 | (setq tchar | 106 | (setq tchar |
| 107 | (if (and (display-popup-menus-p) | 107 | (if (and (display-popup-menus-p) |
| 108 | last-input-event ; not during startup | 108 | last-input-event ; not during startup |
| 109 | (listp last-nonmenu-event) | 109 | (consp last-nonmenu-event) |
| 110 | use-dialog-box) | 110 | use-dialog-box) |
| 111 | (x-popup-dialog | 111 | (x-popup-dialog |
| 112 | t | 112 | t |