(sgml-guess-indent): Look further into the buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ec410602e637bc8fdef3bb4dc4ab17980fe2010..a35caa9d7655e5643eaa8d66a47005b94095f287 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-22  Mike Williams  <mdub@bigfoot.com>
+
+       * textmodes/sgml-mode.el (sgml-guess-indent): Look further into
+       the buffer.
+
 2002-05-21  Markus Rost  <rost@math.ohio-state.edu>
 
        * lpr.el: Fix typo in Commentary section.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 58aec14b48bc3c8c1703c7a5499e06ba04410e2b..a9e13c7c4918d967eb2bafa52e7da06fd57f982a 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -1235,7 +1235,7 @@ Add this to `sgml-mode-hook' for convenience."
   (interactive)
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "^\\([ \t]+\\)<" 100 'noerror)
+    (if (re-search-forward "^\\([ \t]+\\)<" 500 'noerror)
         (progn
           (set (make-local-variable 'sgml-basic-offset)
                (length (match-string 1)))