summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMike Williams <mdub@bigfoot.com>2002-09-29 06:00:18 +0000
committerMike Williams <mdub@bigfoot.com>2002-09-29 06:00:18 +0000
commit1c8438abac1309533b2f01d5d3e34e691433d70e (patch)
tree4bfa5f8710d9cbb5268a6acca9830b37305c1bd9
parente2f484bc7aa95ecc315c7d88a3072d0cd59fa096 (diff)
downloademacs-1c8438abac1309533b2f01d5d3e34e691433d70e.tar.gz
(sgml-guess-indent): Handle tabs correctly.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/textmodes/sgml-mode.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca5666e5b7c..0559b95ee18 100644
--- 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 bad9dcc4a34..f5bd3236412 100644
--- 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)
))))