Function: sgml-tag-text-p

sgml-tag-text-p is a byte-compiled function defined in sgml-mode.el.gz.

Signature

(sgml-tag-text-p START END)

Documentation

Return non-nil if text between START and END is a tag.

Checks among other things that the tag does not contain spurious unquoted < or > chars inside, which would indicate that it really isn't a tag after all.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/sgml-mode.el.gz
(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
unquoted < or > chars inside, which would indicate that it
really isn't a tag after all."
  (save-excursion
    (with-syntax-table sgml-tag-syntax-table
      (let ((pps (parse-partial-sexp start end 2)))
	(and (= (nth 0 pps) 0))))))