Commit 9847dc91 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent e8f2a5d5
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment