(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.

1 files changed, 7 insertions, 4 deletions

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 449606607f6..1d162e515e4 100644
--- 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 ()