(sgml-at-indentation-p): Move to fix compilation error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0839bbb42d1bde7c1b4c135a768f20ee38181c98..3cfe1520c9c1dfa7b047de0661c15d76f439641e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-16  Mike Williams  <mdub@bigfoot.com>
+
+       * textmodes/sgml-mode.el (sgml-at-indentation-p): Move to fix
+       compilation error.
+
 2002-04-16  Michael Kifer  <kifer@cs.stonybrook.edu>
        
         * viper-ex.el: Patch by Samuel Padgett. Copyright papers received.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 9ea5639c81e379c4384cb1fab427fe7c91be58a9..bbe63611c6d90d4f6f161334ad0b816421311b3e 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -858,6 +858,12 @@ and move to the line in the SGML document that caused it."
   (save-some-buffers (not compilation-ask-about-save) nil)
   (compile-internal command "No more errors"))
 
+(defsubst sgml-at-indentation-p ()
+  "Return true if point is at the first non-whitespace character on the line."
+  (save-excursion
+    (skip-chars-backward " \t")
+    (bolp)))
+
 (defun sgml-lexical-context (&optional limit)
   "Return the lexical context at point as (TYPE . START).
 START is the location of the start of the lexical element.
@@ -947,12 +953,6 @@ With prefix argument, unquote the region."
                                                (?< . "&lt;")
                                                (?> . "&gt;"))))))))
 
-(defsubst sgml-at-indentation-p ()
-  "Return true if point is at the first non-whitespace character on the line."
-  (save-excursion
-    (skip-chars-backward " \t")
-    (bolp)))
-
 \f
 ;; Parsing