(sgml-guess-indent): New function.

2 files changed, 22 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff6ad3b4795..82eff1a7346 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-12  Mike Williams  <mdub@bigfoot.com>
+
+        * textmodes/sgml-mode.el (sgml-guess-indent): New function.
+
 2002-04-11  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
         * menu-bar.el (menu-bar-adv-search-menu): Add incremental search.
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 9df19cc1180..2a410554de6 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -889,7 +889,7 @@ If nil, start from a preceding tag at indentation."
                     (unless (search-forward "]]>" pos 'move)
                       (list 0 nil nil 'cdata nil nil nil nil cdata-start))))
                  (t
-                  ;; We've reached a tag.  Parse it. 
+                  ;; We've reached a tag.  Parse it.
                   ;; FIXME: Handle net-enabling start-tags
                   (parse-partial-sexp (point) pos 0))))))
       (cond
@@ -1031,7 +1031,7 @@ immediately enclosing the current position."
     ;;   enclosing start-tags we'll have to ignore.
     (skip-chars-backward " \t\n")      ; Make sure we're not at indentation.
     (while
-        (and (or ignore 
+        (and (or ignore
                  (not (if full (eq full 'empty) context))
                  (not (sgml-at-indentation-p))
                  (and context
@@ -1104,7 +1104,7 @@ If FULL is non-nil, parse back to the beginning of the buffer."
     (text
      (let ((context (save-excursion (sgml-get-context))))
        (if context
-           (progn 
+           (progn
              (insert "</" (sgml-tag-name (car (last context))) ">")
              (indent-according-to-mode)))))
     (otherwise
@@ -1227,6 +1227,21 @@ If FULL is non-nil, parse back to the beginning of the buffer."
         (save-excursion (indent-line-to indent-col))
       (indent-line-to indent-col))))
 
+(defun sgml-guess-indent ()
+  "Guess an appropriate value for `sgml-basic-offset'.
+Base the guessed identation level on the first indented tag in the buffer.
+Add this to `sgml-mode-hook' for convenience."
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (if (re-search-forward "^\\([ \t]+\\)<" 100 'noerror)
+        (progn
+          (set (make-local-variable 'sgml-basic-offset)
+               (length (match-string 1)))
+          (message "Guessed sgml-basic-offset = %d"
+                   sgml-basic-offset)
+          ))))
+
 (defun sgml-parse-dtd ()
   "Simplistic parse of the current buffer as a DTD.
 Currently just returns (EMPTY-TAGS UNCLOSED-TAGS)."