# HG changeset patch
# User Rajesh Vaidheeswarran <rv@gnu.org>
# Date 1148580565 0
# Node ID 1d492927a08de7587c880cd080951b74fb6ac5c9
# Parent  6ab4517adb6b6147ca493b229a6640ce5b6e0554
whitespace.el - make whitesspace-cleanup use the current active regoin, if there is one.

diff -r 6ab4517adb6b -r 1d492927a08d lisp/ChangeLog
--- a/lisp/ChangeLog	Thu May 25 17:03:52 2006 +0000
+++ b/lisp/ChangeLog	Thu May 25 18:09:25 2006 +0000
@@ -1,3 +1,9 @@
+2006-05-25  Rajesh Vaidheeswarran <rv@gnu.org>
+	* whitespace.el (whitespace-cleanup): change to cleanup
+	region if one is active
+	* whitespace.el (whitespace-cleanup-internal): new internal
+	method
+
 2006-05-25  Mathias Dahl  <mathias.dahl@gmail.com>
 
 	* dired.el (dired-mode-map): Add help-echo strings to tumme
diff -r 6ab4517adb6b -r 1d492927a08d lisp/whitespace.el
--- a/lisp/whitespace.el	Thu May 25 17:03:52 2006 +0000
+++ b/lisp/whitespace.el	Thu May 25 18:09:25 2006 +0000
@@ -430,7 +430,7 @@
 	      (if buffer-read-only
 		  (if (not quiet)
 		      (message "Can't cleanup: %s is read-only" (buffer-name)))
-		(whitespace-cleanup))
+		(whitespace-cleanup-internal))
 	    (let ((whitespace-leading (if whitespace-check-buffer-leading
 					  (whitespace-buffer-leading)
 					nil))
@@ -520,6 +520,11 @@
   "Cleanup the five different kinds of whitespace problems.
 See `whitespace-buffer' docstring for a summary of the problems."
   (interactive)
+  (if (and transient-mark-mode mark-active)
+      (whitespace-cleanup-region (region-beginning) (region-end))
+    (whitespace-cleanup-internal)))
+
+(defun whitespace-cleanup-internal ()
   ;; 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)
@@ -563,7 +568,7 @@
 
 	;; Call this recursively till everything is taken care of
 	(if whitespace-any
-	    (whitespace-cleanup)
+	    (whitespace-cleanup-internal)
 	  (progn
 	    (if (not whitespace-silent)
 		(message "%s clean" buffer-file-name))
@@ -577,7 +582,7 @@
   (save-excursion
     (save-restriction
       (narrow-to-region s e)
-      (whitespace-cleanup))
+      (whitespace-cleanup-internal))
     (whitespace-buffer t)))
 
 (defun whitespace-buffer-leading ()
@@ -760,7 +765,7 @@
 		    (if whitespace-auto-cleanup
 			(progn
 			  ;;(message "cleaning up whitespace in %s" bufname)
-			  (whitespace-cleanup))
+			  (whitespace-cleanup-internal))
 		      (progn
 			;;(message "whitespace-buffer %s." (buffer-name))
 			(whitespace-buffer t))))
@@ -806,7 +811,7 @@
   (interactive)
   (let ((werr nil))
     (if whitespace-auto-cleanup
-	(whitespace-cleanup)
+	(whitespace-cleanup-internal)
       (setq werr (whitespace-buffer)))
     (if (and whitespace-abort-on-error werr)
 	(error (concat "Abort write due to whitespaces in "