From df17e102a07a2839cfabf6a90e9dd09a562300b0 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Wed, 18 Nov 2020 18:13:27 +0100 Subject: [PATCH] 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 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) -- 2.39.5