* lisp/emacs-lisp/warnings.el (display-warning): Don't be so negative

diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index 6919edcc81813ef39d358f51983f3d5d7f3641bc..f525ea433addbb93b6f055d566be58e4c041451e 100644 (file)
--- a/lisp/emacs-lisp/warnings.el
+++ b/lisp/emacs-lisp/warnings.el
@@ -294,8 +294,7 @@ entirely by setting `warning-suppress-types' or
                      message)
               ;; Don't output the buttons when doing batch compilation
               ;; and similar.
-              (when (and (not noninteractive)
-                         (not (eq type 'bytecomp)))
+              (unless (or noninteractive (eq type 'bytecomp))
                 (insert " ")
                 (insert-button "Disable showing"
                                'type 'warning-suppress-warning