Mercurial > emacs
changeset 105737:2009126d46e1
(sgml-looking-back-at): Move definition before use.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 24 Oct 2009 03:45:50 +0000 |
| parents | 4d7a7b574da2 |
| children | 89a1bad44673 |
| files | lisp/ChangeLog lisp/textmodes/sgml-mode.el |
| diffstat | 2 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 24 03:44:42 2009 +0000 +++ b/lisp/ChangeLog Sat Oct 24 03:45:50 2009 +0000 @@ -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.
--- a/lisp/textmodes/sgml-mode.el Sat Oct 24 03:44:42 2009 +0000 +++ b/lisp/textmodes/sgml-mode.el Sat Oct 24 03:45:50 2009 +0000 @@ -873,6 +873,12 @@ (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 @@ (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