From 1c8438abac1309533b2f01d5d3e34e691433d70e Mon Sep 17 00:00:00 2001 From: Mike Williams Date: Sun, 29 Sep 2002 06:00:18 +0000 Subject: [PATCH] (sgml-guess-indent): Handle tabs correctly. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/sgml-mode.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * textmodes/sgml-mode.el (sgml-guess-indent): Handle + tabs correctly. + 2002-09-29 Richard M. Stallman * 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) )))) -- 2.39.2