From 9847dc91f357360142365824007cca3b8b8b15fd Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 24 Oct 2009 03:45:50 +0000 Subject: [PATCH] (sgml-looking-back-at): Move definition before use. --- lisp/ChangeLog | 3 +++ lisp/textmodes/sgml-mode.el | 12 ++++++------ 2 files changed, 9 insertions(+), 6 deletions(-) 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 + * 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 -- 2.39.5