(whitespace-cleanup-internal): New optional arg REGION-ONLY. If it's non-nil,

modify the message to the user accordingly.
(whitespace-cleanup-region): Call whitespace-cleanup-internal with a non-nil
argument.

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 449606607f61ade5c8789ddfdab7bd9b5598853f..1d162e515e423e5153296222bea74ffc2619b8ab 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -524,7 +524,7 @@ See `whitespace-buffer' docstring for a summary of the problems."
       (whitespace-cleanup-region (region-beginning) (region-end))
     (whitespace-cleanup-internal)))
 
-(defun whitespace-cleanup-internal ()
+(defun whitespace-cleanup-internal (&optional region-only)
   ;; If this buffer really contains a file, then run, else quit.
   (whitespace-check-whitespace-mode current-prefix-arg)
   (if (and buffer-file-name whitespace-mode)
@@ -569,9 +569,12 @@ See `whitespace-buffer' docstring for a summary of the problems."
        ;; Call this recursively till everything is taken care of
        (if whitespace-any
            (whitespace-cleanup-internal)
+         ;; if we are done, talk to the user
          (progn
-           (if (not whitespace-silent)
-               (message "%s clean" buffer-file-name))
+           (unless whitespace-silent
+             (if region-only
+                 (message "The region is now clean")
+               (message "%s is now clean" buffer-file-name)))
            (whitespace-update-modeline)))
        (setq tab-width whitespace-tabwith-saved))))
 
@@ -582,7 +585,7 @@ See `whitespace-buffer' docstring for a summary of the problems."
   (save-excursion
     (save-restriction
       (narrow-to-region s e)
-      (whitespace-cleanup-internal))
+      (whitespace-cleanup-internal t))
     (whitespace-buffer t)))
 
 (defun whitespace-buffer-leading ()