[Emacs-diffs] Changes to emacs/lisp/whitespace.el,v

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      08/04/18 02:01:46

Index: whitespace.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/whitespace.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- whitespace.el       16 Apr 2008 03:41:17 -0000      1.72
+++ whitespace.el       18 Apr 2008 02:01:46 -0000      1.73
@@ -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'"