[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp df17e10 1/2: Revert "[TODO] Remove noisy anti-noise
From: |
Jonas Bernoulli |
Subject: |
feature/native-comp df17e10 1/2: Revert "[TODO] Remove noisy anti-noise feature" |
Date: |
Wed, 18 Nov 2020 12:14:29 -0500 (EST) |
branch: feature/native-comp
commit df17e102a07a2839cfabf6a90e9dd09a562300b0
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
Revert "[TODO] Remove noisy anti-noise feature"
This reverts commit c36b4eed2d76f0e804d27d35dd6281f858639f94.
---
lisp/emacs-lisp/warnings.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index 6cd7022..f525ea43 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)