comparison lisp/cedet/semantic/analyze.el @ 110534:826d60163924

Merge changes from emacs-23 branch.

110517:64945cefe6a6

  (let ((s sequence)			; copy of the sequence
	(tmp nil)			; tmp find variable
	(tag nil)			; tag return list
	(tagtype nil)			; tag types return list
	(fname nil)
	(miniscope (clone scope))
	)
    ;; First order check.  Is this wholely contained in the typecache?
    (setq tmp (semanticdb-typecache-find sequence))

    (if tmp

      (let* ((tmptype
	      ;; In some cases the found TMP is a type,
	      ;; and we can use it directly.
	      (cond ((semantic-tag-of-class-p tmp 'type)
		     ;; update the miniscope when we need to analyze types directly.
		     (let ((rawscope
			    (apply 'append
				   (mapcar 'semantic-tag-type-members
					   tagtype))))
		       (oset miniscope fullscope rawscope))
		     ;; Now analayze the type to remove metatypes.
		     (or (semantic-analyze-type tmp miniscope)
			 tmp))
		    (t
		     (semantic-analyze-tag-type tmp scope))))

such as 'function or 'variable.
Optional argument SCOPE specifies a scope object which has
additional tags which are in SCOPE and do not need prefixing to
find.

This is a wrapper on top of semanticdb, semanticdb-typecache,
semantic-scope, and semantic search functions.  Almost all
searches use the same arguments."
  (let ((namelst (if (consp name) name ;; test if pre-split.
		   (semantic-analyze-split-name name))))
    (cond

110534:826d60163924

  (let ((s sequence)			; copy of the sequence
	(tmp nil)			; tmp find variable
	(tag nil)			; tag return list
	(tagtype nil)			; tag types return list
	(fname nil)
	(miniscope (when scope (clone scope)))
	)
    ;; First order check.  Is this wholely contained in the typecache?
    (setq tmp (semanticdb-typecache-find sequence))

    (if tmp

      (let* ((tmptype
	      ;; In some cases the found TMP is a type,
	      ;; and we can use it directly.
	      (cond ((semantic-tag-of-class-p tmp 'type)
		     ;; update the miniscope when we need to analyze types directly.
		     (when miniscope
		       (let ((rawscope
			      (apply 'append
				     (mapcar 'semantic-tag-type-members
					     tagtype))))
			 (oset miniscope fullscope rawscope)))
		     ;; Now analayze the type to remove metatypes.
		     (or (semantic-analyze-type tmp miniscope)
			 tmp))
		    (t
		     (semantic-analyze-tag-type tmp scope))))

such as 'function or 'variable.
Optional argument SCOPE specifies a scope object which has
additional tags which are in SCOPE and do not need prefixing to
find.

This is a wrapper on top of semanticdb, semanticdb typecache,
semantic-scope, and semantic search functions.  Almost all
searches use the same arguments."
  (let ((namelst (if (consp name) name ;; test if pre-split.
		   (semantic-analyze-split-name name))))
    (cond