Function: semantic-make-expand-tag

semantic-make-expand-tag is a byte-compiled function defined in make.el.gz.

Signature

(semantic-make-expand-tag TAG)

Documentation

Expand TAG into a list of equivalent tags, or nil.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/bovine/make.el.gz
(defun semantic-make-expand-tag (tag)
  "Expand TAG into a list of equivalent tags, or nil."
  (let ((name (semantic-tag-name tag))
        xpand)
    ;(message "Expanding %S" name)
    ;(goto-char (semantic-tag-start tag))
    ;(sit-for 0)
    (if (and (consp name)
	     (memq (semantic-tag-class tag) '(function include))
	     (> (length name) 1))
	(while name
	  (setq xpand (cons (semantic-tag-clone tag (car name)) xpand)
		name  (cdr name)))
      ;; Else, only a single name.
      (when (consp name)
	(setcar tag (car name)))
      (setq xpand (list tag)))
    xpand))