diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-10-15 14:34:12 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-10-15 14:34:12 -0400 |
| commit | f5c9d3f54ec85a83bfe33d0171df2546e750ec0c (patch) | |
| tree | fc7ffdee14bb9399d7c582efc9a1210f2c709c8f /lisp/emacs-lisp | |
| parent | ce09f19c2849c6c13520cc1d8351974c8bee9640 (diff) | |
| download | emacs-f5c9d3f54ec85a83bfe33d0171df2546e750ec0c.tar.gz emacs-f5c9d3f54ec85a83bfe33d0171df2546e750ec0c.tar.bz2 emacs-f5c9d3f54ec85a83bfe33d0171df2546e750ec0c.zip | |
* lisp/emacs-lisp/warnings.el (display-warning): Don't be so negative
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/warnings.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 6919edcc818..f525ea433ad 100644 --- 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 |