(whitespace-cleanup-internal): Use current

argument for recursive call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 990c3c39ca3c482e9f4044121ab6a6a2c69eca48..86d6f6acfd6f5bfd8780fdd1a29dc981ebf28da0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * whitespace.el (whitespace-cleanup-internal): Use current
+       argument for recursive call.
+
 2006-12-04  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-methods): Add "ControlPath" and

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index cdb743c14949a08e0947d8f848e7cfe339922a77..74943da441366814232df49ca7c44e4b44726302 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -571,7 +571,7 @@ See `whitespace-buffer' docstring for a summary of the problems."
 
        ;; Call this recursively till everything is taken care of
        (if whitespace-any
-           (whitespace-cleanup-internal)
+           (whitespace-cleanup-internal region-only)
          ;; if we are done, talk to the user
          (progn
            (unless whitespace-silent