From: Jonas Bernoulli <jonas@bernoul.li>
Date: Wed, 18 Nov 2020 14:18:07 +0000 (+0100)
Subject: [TODO] Remove noisy anti-noise feature
X-Git-Tag: emacs-28.0.90~2727^2~312
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c36b4eed2d76f0e804d27d35dd6281f858639f94;p=emacs.git

[TODO] Remove noisy anti-noise feature
---

diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index f525ea433ad..6cd7022e12e 100644
--- a/lisp/emacs-lisp/warnings.el
+++ b/lisp/emacs-lisp/warnings.el
@@ -292,17 +292,6 @@ 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)