From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Fri, 18 Apr 2008 02:01:46 +0000 (+0000)
Subject: Handle whitespace-tab-width properly.
X-Git-Tag: emacs-pretest-23.0.90~6229
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce20300145fc056032105014adaa887379b00395;p=emacs.git

Handle whitespace-tab-width properly.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a55132d423..76f3abb918f 100644
--- 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 b94ed941370..6a29eb258e5 100644
--- 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'"