Improve non-interactive use of whitespace reporting

  whitespace.el (whitespace-report-region): Allow report-if-bogus to take
  the value `never', for non-interactive use.

2 files changed, 7 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12b194483ff..a94f977e755 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
         * whitespace.el (whitespace-report-region): Simplify
         documentation.
+        (whitespace-report-region): Allow report-if-bogus to take the
+        value `never', for non-interactive use.
         (whitespace-report): Refer to whitespace-report-region's
         documentation.
 
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index c67733623dc..917f0432ef2 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1737,13 +1737,14 @@ before calling `whitespace-report-region' interactively, it
 forces `whitespace-style' to have:
 
    empty
+   trailing
    indentation
    space-before-tab
-   trailing
    space-after-tab
 
-If REPORT-IF-BOGUS is non-nil, it reports only when there are any
-whitespace problems in buffer.
+If REPORT-IF-BOGUS is t, it reports only when there are any
+whitespace problems in buffer; if it is `never', it does not
+report problems.
 
 Report if some of the following whitespace problems exist:
 
@@ -1798,7 +1799,7 @@ cleaning up these problems."
                      (and (re-search-forward regexp rend t)
                           (setq has-bogus t))))
                whitespace-report-list)))
-        (when (if report-if-bogus has-bogus t)
+        (when (pcase report-if-bogus (`nil t) (`never nil) (_ has-bogus))
           (whitespace-kill-buffer whitespace-report-buffer-name)
           ;; `whitespace-indent-tabs-mode' is local to current buffer
           ;; `whitespace-tab-width' is local to current buffer