Mercurial > emacs
comparison lisp/whitespace.el @ 74396:ee60f0fe10d6
(whitespace-cleanup-internal): Use current
argument for recursive call.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 04 Dec 2006 07:34:01 +0000 |
| parents | 75af8d959739 |
| children | b2e5081b9320 |
comparison
equal
deleted
inserted
replaced
| 74395:4b5dd1d28ff0 | 74396:ee60f0fe10d6 |
|---|---|
| 569 (whitespace-buffer-cleanup whitespace-ateol-regexp "") | 569 (whitespace-buffer-cleanup whitespace-ateol-regexp "") |
| 570 (setq whitespace-any t))) | 570 (setq whitespace-any t))) |
| 571 | 571 |
| 572 ;; Call this recursively till everything is taken care of | 572 ;; Call this recursively till everything is taken care of |
| 573 (if whitespace-any | 573 (if whitespace-any |
| 574 (whitespace-cleanup-internal) | 574 (whitespace-cleanup-internal region-only) |
| 575 ;; if we are done, talk to the user | 575 ;; if we are done, talk to the user |
| 576 (progn | 576 (progn |
| 577 (unless whitespace-silent | 577 (unless whitespace-silent |
| 578 (if region-only | 578 (if region-only |
| 579 (message "The region is now clean") | 579 (message "The region is now clean") |