Mercurial > emacs
changeset 94142:14cbf4c7b904
Handle whitespace-tab-width properly.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Fri, 18 Apr 2008 02:01:46 +0000 |
| parents | e93898d6903e |
| children | b9c54321b685 |
| files | lisp/ChangeLog lisp/whitespace.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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'"