Function: semantic-tag-texi-section-text-bounds

semantic-tag-texi-section-text-bounds is a byte-compiled function defined in texi.el.gz.

Signature

(semantic-tag-texi-section-text-bounds TAG)

Documentation

Get the bounds to the text of TAG.

The text bounds is the text belonging to this node excluding the text of any child nodes, but including any defuns.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/texi.el.gz
;;; Texi Unique Features
;;
(defun semantic-tag-texi-section-text-bounds (tag)
  "Get the bounds to the text of TAG.
The text bounds is the text belonging to this node excluding
the text of any child nodes, but including any defuns."
  (let ((memb (semantic-tag-components tag)))
    ;; Members.. if one is a section, check it out.
    (while (and memb (not (semantic-tag-of-class-p (car memb) 'section)))
      (setq memb (cdr memb)))
    ;; No members? ... then a simple problem!
    (if (not memb)
	(semantic-tag-bounds tag)
      ;; Our end is their beginning...
      (list (semantic-tag-start tag) (semantic-tag-start (car memb))))))