Function: semantic-grammar-first-tag-name

semantic-grammar-first-tag-name is a byte-compiled function defined in grammar.el.gz.

Signature

(semantic-grammar-first-tag-name CLASS)

Documentation

Return the name of the first tag of class CLASS found.

Warn if other tags of class CLASS exist.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
(defun semantic-grammar-first-tag-name (class)
  "Return the name of the first tag of class CLASS found.
Warn if other tags of class CLASS exist."
  (let* ((tags (semantic-find-tags-by-class
                class (current-buffer))))
    (if tags
        (prog1
            (semantic-tag-name (car tags))
          (if (cdr tags)
              (message "*** Ignore all but first declared %s"
                       class))))))