From b4c1ce8a95e03cb306c31ffc4beb70476cb8f575 Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Thu, 29 May 2014 23:51:47 +0100 Subject: [PATCH] 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. --- lisp/ChangeLog | 2 ++ lisp/whitespace.el | 9 +++++---- 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 -- 2.39.2