diff options
| author | Po Lu <luangruo@yahoo.com> | 2021-12-06 17:24:28 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2021-12-06 17:24:28 +0800 |
| commit | 9eba6b966e330a38bdc3fef5e36b8a2904e72785 (patch) | |
| tree | 4018079e38cd5eb22c33b497cf777784b7647b8e /lisp/emacs-lisp/warnings.el | |
| parent | 7314c12e64ef5b185e3fd52d8dc1111eb730bdad (diff) | |
| parent | c1145c31adf143460911dd87b408d35ea88a1a92 (diff) | |
| download | emacs-9eba6b966e330a38bdc3fef5e36b8a2904e72785.tar.gz emacs-9eba6b966e330a38bdc3fef5e36b8a2904e72785.tar.bz2 emacs-9eba6b966e330a38bdc3fef5e36b8a2904e72785.zip | |
Merge remote-tracking branch 'origin/master' into feature/pgtk
Diffstat (limited to 'lisp/emacs-lisp/warnings.el')
| -rw-r--r-- | lisp/emacs-lisp/warnings.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 36b275e2d3c..1d061364a03 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -307,7 +307,9 @@ entirely by setting `warning-suppress-types' or 'type 'warning-suppress-log-warning 'warning-type type)) (funcall newline) - (when (and warning-fill-prefix (not (string-search "\n" message))) + (when (and warning-fill-prefix + (not (string-search "\n" message)) + (not noninteractive)) (let ((fill-prefix warning-fill-prefix) (fill-column warning-fill-column)) (fill-region start (point)))) |