summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2020-11-18 15:18:07 +0100
committerJonas Bernoulli <jonas@bernoul.li>2020-11-18 15:21:12 +0100
commitc36b4eed2d76f0e804d27d35dd6281f858639f94 (patch)
treede7a2c665b0099daca6aaa40d84d851aeac12c3c /lisp/emacs-lisp
parent007a5a677573ab628426a0605eb38f8e68fe1953 (diff)
downloademacs-c36b4eed2d76f0e804d27d35dd6281f858639f94.tar.gz
emacs-c36b4eed2d76f0e804d27d35dd6281f858639f94.tar.bz2
emacs-c36b4eed2d76f0e804d27d35dd6281f858639f94.zip
[TODO] Remove noisy anti-noise feature
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/warnings.el11
1 files changed, 0 insertions, 11 deletions
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)