Make whitespace-report-region respect current settings

* lisp/whitespace.el (whitespace-report-region): Make it respect
whitespace-style, including any additions made by the force parameter.
This means that the function does not return t unless a whitespace
problem that the user cares about is reported.  (Bug#24745)

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 2cf014cc53e..a270a19183e 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1740,8 +1740,10 @@ cleaning up these problems."
                             (whitespace-space-after-tab-regexp 'space))
                            (t
                             (cdr option)))))
-                     (and (re-search-forward regexp rend t)
-                          (setq has-bogus t))))
+                     (when (re-search-forward regexp rend t)
+                       (unless has-bogus
+                         (setq has-bogus (memq (car option) whitespace-style)))
+                       t)))
                whitespace-report-list)))
         (when (pcase report-if-bogus (`nil t) (`never nil) (_ has-bogus))
           (whitespace-kill-buffer whitespace-report-buffer-name)