diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-11-18 18:13:27 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-11-18 18:13:27 +0100 |
| commit | df17e102a07a2839cfabf6a90e9dd09a562300b0 (patch) | |
| tree | 1005ddffca60d0396d623e50abd1706b664fb233 /lisp/emacs-lisp | |
| parent | c36b4eed2d76f0e804d27d35dd6281f858639f94 (diff) | |
| download | emacs-df17e102a07a2839cfabf6a90e9dd09a562300b0.tar.gz emacs-df17e102a07a2839cfabf6a90e9dd09a562300b0.tar.bz2 emacs-df17e102a07a2839cfabf6a90e9dd09a562300b0.zip | |
Revert "[TODO] Remove noisy anti-noise feature"
This reverts commit c36b4eed2d76f0e804d27d35dd6281f858639f94.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/warnings.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 6cd7022e12e..f525ea433ad 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -292,6 +292,17 @@ entirely by setting `warning-suppress-types' or (insert (format (nth 1 level-info) (format warning-type-format typename)) message) + ;; Don't output the buttons when doing batch compilation + ;; and similar. + (unless (or noninteractive (eq type 'bytecomp)) + (insert " ") + (insert-button "Disable showing" + 'type 'warning-suppress-warning + 'warning-type type) + (insert " ") + (insert-button "Disable logging" + 'type 'warning-suppress-log-warning + 'warning-type type)) (funcall newline) (when (and warning-fill-prefix (not (string-match "\n" message))) (let ((fill-prefix warning-fill-prefix) |