(sgml-guess-indent): Handle tabs correctly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca5666e5b7cacfcec6a4124e62f0a6043adf77eb..0559b95ee1809d60b8c44451ee771dce15535807 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-29  Mike Williams  <mdub@bigfoot.com>
+
+       * textmodes/sgml-mode.el (sgml-guess-indent): Handle
+       tabs correctly.
+
 2002-09-29  Richard M. Stallman  <rms@gnu.org>
 
        * custom.el (defcustom): Doc fix.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index bad9dcc4a34c5166fb2b4c78de9dc178d81394c9..f5bd323641233342da0c628a33b4e03b0f994201 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -1288,7 +1288,7 @@ Add this to `sgml-mode-hook' for convenience."
     (if (re-search-forward "^\\([ \t]+\\)<" 500 'noerror)
         (progn
           (set (make-local-variable 'sgml-basic-offset)
-               (length (match-string 1)))
+               (1- (current-column)))
           (message "Guessed sgml-basic-offset = %d"
                    sgml-basic-offset)
           ))))