Mercurial > emacs

changeset 44619:504c3192243a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sgml-at-indentation-p): Move to fix compilation error.
author Mike Williams <mdub@bigfoot.com>
date Tue, 16 Apr 2002 10:36:27 +0000
parents 8190e28cdb6b
children 8c5668123340
files lisp/textmodes/sgml-mode.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el	Tue Apr 16 07:35:02 2002 +0000
+++ b/lisp/textmodes/sgml-mode.el	Tue Apr 16 10:36:27 2002 +0000
@@ -858,6 +858,12 @@
   (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 @@
 						(?< . "&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