Mercurial > emacs
changeset 72442:384cd9b2e977
(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.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 18 Aug 2006 12:50:08 +0000 |
| parents | 672046feba65 |
| children | 5cc7d65d1103 |
| files | lisp/whitespace.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/whitespace.el Fri Aug 18 12:41:09 2006 +0000 +++ b/lisp/whitespace.el Fri Aug 18 12:50:08 2006 +0000 @@ -524,7 +524,7 @@ (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 @@ ;; 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 @@ (save-excursion (save-restriction (narrow-to-region s e) - (whitespace-cleanup-internal)) + (whitespace-cleanup-internal t)) (whitespace-buffer t))) (defun whitespace-buffer-leading ()