From: Glenn Morris <rgm@gnu.org>
Date: Sat, 24 Oct 2009 03:45:50 +0000 (+0000)
Subject: (sgml-looking-back-at): Move definition before use.
X-Git-Tag: emacs-pretest-23.1.90~679
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9847dc91f357360142365824007cca3b8b8b15fd;p=emacs.git

(sgml-looking-back-at): Move definition before use.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d748c4e9885..d96feb4c222 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-10-24  Glenn Morris  <rgm@gnu.org>
 
+	* textmodes/sgml-mode.el (sgml-looking-back-at): Move definition before
+	use.
+
 	* emacs-lisp/checkdoc.el (generate-autoload-cookie): Define for
 	compiler.
 
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index ff3054423b9..26360df261b 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -873,6 +873,12 @@ Return t if after a closing tag."
 	(setq arg (1- arg)))
       return)))
 
+(defsubst sgml-looking-back-at (str)
+  "Return t if the test before point matches STR."
+  (let ((start (- (point) (length str))))
+    (and (>= start (point-min))
+         (equal str (buffer-substring-no-properties start (point))))))
+
 (defun sgml-delete-tag (arg)
   ;; FIXME: Should be called sgml-kill-tag or should not touch the kill-ring.
   "Delete tag on or after cursor, and matching closing or opening tag.
@@ -1159,12 +1165,6 @@ You might want to turn on `auto-fill-mode' to get better results."
   (buffer-substring-no-properties
    (point) (progn (skip-syntax-forward "w_") (point))))
 
-(defsubst sgml-looking-back-at (str)
-  "Return t if the test before point matches STR."
-  (let ((start (- (point) (length str))))
-    (and (>= start (point-min))
-         (equal str (buffer-substring-no-properties start (point))))))
-
 (defun sgml-tag-text-p (start end)
   "Return non-nil if text between START and END is a tag.
 Checks among other things that the tag does not contain spurious