diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-15 18:36:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-15 18:36:26 +0200 |
| commit | ce09f19c2849c6c13520cc1d8351974c8bee9640 (patch) | |
| tree | 65e94317442452f9e9953ed371dfc277024c9640 /lisp/emacs-lisp | |
| parent | 97b8c0adc1d6ce42c43829e1270c0ccd13a82382 (diff) | |
| download | emacs-ce09f19c2849c6c13520cc1d8351974c8bee9640.tar.gz emacs-ce09f19c2849c6c13520cc1d8351974c8bee9640.tar.bz2 emacs-ce09f19c2849c6c13520cc1d8351974c8bee9640.zip | |
Don't display the warning buttons in bytecomp buffers
* lisp/emacs-lisp/warnings.el (display-warning): Don't do the
buttons in bytecomp buffers.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/warnings.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index e10c149d89c..6919edcc818 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -294,7 +294,8 @@ entirely by setting `warning-suppress-types' or message) ;; Don't output the buttons when doing batch compilation ;; and similar. - (unless noninteractive + (when (and (not noninteractive) + (not (eq type 'bytecomp))) (insert " ") (insert-button "Disable showing" 'type 'warning-suppress-warning |