# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1208484106 0
# Node ID 14cbf4c7b904b9349f3055a473cd85fe1b6af8d8
# Parent  e93898d6903eb51a8f235195b50a5d35363c84d0
Handle whitespace-tab-width properly.

diff -r e93898d6903e -r 14cbf4c7b904 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Apr 18 01:46:37 2008 +0000
+++ b/lisp/ChangeLog	Fri Apr 18 02:01:46 2008 +0000
@@ -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 -r e93898d6903e -r 14cbf4c7b904 lisp/whitespace.el
--- a/lisp/whitespace.el	Fri Apr 18 01:46:37 2008 +0000
+++ b/lisp/whitespace.el	Fri Apr 18 02:01:46 2008 +0000
@@ -1801,7 +1801,9 @@
 	(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 @@
 		(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'"