From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 18 Aug 2006 12:50:08 +0000 (+0000)
Subject: (whitespace-cleanup-internal): New optional arg REGION-ONLY.  If it's non-nil,
X-Git-Tag: emacs-pretest-22.0.90~958
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e6f0cb6ab4c8df5f33d5d857147f15a52400bf2;p=emacs.git

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