+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
(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))
"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)
;; 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))
(save-excursion
(save-restriction
(narrow-to-region s e)
- (whitespace-cleanup))
+ (whitespace-cleanup-internal))
(whitespace-buffer t)))
(defun whitespace-buffer-leading ()
(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))))
(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 "