Handle whitespace-tab-width properly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a55132d42365bfaa21748f8c2d6809a235465d0..76f3abb918ff40378294f1bb2a536cc2eeb11c1d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,11 @@
        * emacs-lisp/debug.el (debug): Revert to bury-buffer since quit-window
        is not better anyway.
 
+2008-04-17  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * whitespace.el (whitespace-report-region): Handle whitespace-tab-width
+       properly.
+
 2008-04-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/python.el (python-mode-map): Use abbrev-table-menu.

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index b94ed94137086a4089e2727b08279e418de1fab0..6a29eb258e5ed7756ff5e7c3037b6fcdbc3e7103 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1801,7 +1801,9 @@ cleaning up these problems."
        (when (if report-if-bogus has-bogus t)
          (whitespace-kill-buffer whitespace-report-buffer-name)
          ;; `whitespace-indent-tabs-mode' is local to current buffer
-         (let ((ws-indent-tabs-mode whitespace-indent-tabs-mode))
+         ;; `whitespace-tab-width' is local to current buffer
+         (let ((ws-indent-tabs-mode whitespace-indent-tabs-mode)
+               (ws-tab-width whitespace-tab-width))
            (with-current-buffer (get-buffer-create
                                  whitespace-report-buffer-name)
              (erase-buffer)
@@ -1818,7 +1820,7 @@ cleaning up these problems."
                (setq bogus-list (cdr bogus-list)))
              (forward-line 1)
              (whitespace-insert-value ws-indent-tabs-mode)
-             (whitespace-insert-value whitespace-tab-width)
+             (whitespace-insert-value ws-tab-width)
              (when has-bogus
                (goto-char (point-max))
                (insert " Type `M-x whitespace-cleanup'"