Function: semantic--tag-find-parent-by-name

semantic--tag-find-parent-by-name is a byte-compiled function defined in tag.el.gz.

Signature

(semantic--tag-find-parent-by-name NAME SUPERS)

Documentation

Find the superclass NAME in the list of SUPERS.

If a simple search doesn't do it, try splitting up the names in SUPERS.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag.el.gz
(defun semantic--tag-find-parent-by-name (name supers)
  "Find the superclass NAME in the list of SUPERS.
If a simple search doesn't do it, try splitting up the names
in SUPERS."
  (let ((stag nil))
    (setq stag (semantic-find-first-tag-by-name name supers))

    (when (not stag)
      (require 'semantic/analyze/fcn)
      (dolist (S supers)
	(let* ((sname (semantic-tag-name S))
	       (splitparts (semantic-analyze-split-name sname))
	       (parts (if (stringp splitparts)
			  (list splitparts)
			(nreverse splitparts))))
	  (when (string= name (car parts))
	    (setq stag S))
	  )))

    stag))