Mercurial > emacs
changeset 70927:1d492927a08d
whitespace.el - make whitesspace-cleanup use the current active regoin, if there is one.
| author | Rajesh Vaidheeswarran <rv@gnu.org> |
|---|---|
| date | Thu, 25 May 2006 18:09:25 +0000 |
| parents | 6ab4517adb6b |
| children | 76fee807f4c0 |
| files | lisp/ChangeLog lisp/whitespace.el |
| diffstat | 2 files changed, 16 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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 "