From: Mike Williams <mdub@bigfoot.com>
Date: Tue, 16 Apr 2002 10:38:30 +0000 (+0000)
Subject: (sgml-at-indentation-p): Move to fix compilation error.
X-Git-Tag: ttn-vms-21-2-B4~15590
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=662deeab31251a29d362dda775412a26fad93633;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0839bbb42d1..3cfe1520c9c 100644
--- 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 9ea5639c81e..bbe63611c6d 100644
--- 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)))
-
 
 ;; Parsing