Function: semantic-current-tag-of-class

semantic-current-tag-of-class is a byte-compiled function defined in find.el.gz.

Signature

(semantic-current-tag-of-class CLASS)

Documentation

Return the current (smallest) tags of CLASS in the current buffer.

If the smallest tag is not of type CLASS, keep going upwards until one is found. Uses semantic-tag-class for classification.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/find.el.gz
(defun semantic-current-tag-of-class (class)
  "Return the current (smallest) tags of CLASS in the current buffer.
If the smallest tag is not of type CLASS, keep going upwards until one
is found.
Uses `semantic-tag-class' for classification."
  (let ((tags (nreverse (semantic-find-tag-by-overlay))))
    (while (and tags
		(not (eq (semantic-tag-class (car tags)) class)))
      (setq tags (cdr tags)))
    (car tags)))