Commit b4c1ce8a authored by Reuben Thomas's avatar Reuben Thomas

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.
parent b0877c44
......@@ -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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment