comparison lisp/cedet/semantic/tag-file.el @ 104492:8db96f200ac8

Synch to Eric Ludlam's upstream CEDET repository. * cedet/semantic/db.el (semanticdb-get-buffer): Wrap find-file in save-match-data. * cedet/semantic/db-global.el (semanticdb-test-gnu-global): Wrap find-file in save-match-data. * cedet/semantic/util.el (semantic-file-tag-table) (semantic-recursive-find-nonterminal-by-name): Wrap find-file in save-match-data. * cedet/semantic/tag.el (semantic-tag-buffer): Wrap find-file in save-match-data. * cedet/semantic/tag-file.el (semantic-go-to-tag): Wrap the "goto" part with save-match-data. * cedet/semantic/lex-spp.el (semantic-lex-spp-lex-text-string): Save match data around calling the major mode to enable. * cedet/semantic/format.el (semantic-format-tag-short-doc-default): Wrap find-file in save-match-data. * cedet/semantic/fw.el (semantic-find-file-noselect): Wrap find-file in save-match-data

104491:ee206d5b836f

  "Go to the location of TAG.
TAG may be a stripped element, in which case PARENT specifies a
parent tag that has position information.
PARENT can also be a `semanticdb-table' object."
  (:override
   (cond ((semantic-tag-in-buffer-p tag)
	  ;; We have a linked tag, go to that buffer.
	  (set-buffer (semantic-tag-buffer tag)))
	 ((semantic-tag-file-name tag)
	  ;; If it didn't have a buffer, but does have a file
	  ;; name, then we need to get to that file so the tag
	  ;; location is made accurate.
	  (set-buffer (find-file-noselect (semantic-tag-file-name tag))))
	 ((and parent (semantic-tag-p parent) (semantic-tag-in-buffer-p parent))
	  ;; The tag had nothing useful, but we have a parent with
	  ;; a buffer, then go there.
	  (set-buffer (semantic-tag-buffer parent)))
	 ((and parent (semantic-tag-p parent) (semantic-tag-file-name parent))
	  ;; Tag had nothing, and the parent only has a file-name, then
	  ;; find that file, and switch to that buffer.
	  (set-buffer (find-file-noselect (semantic-tag-file-name parent))))
	 ((and parent (featurep 'semantic/db)
	       (semanticdb-table-child-p parent))
	  (set-buffer (semanticdb-get-buffer parent)))
	 (t
	  ;; Well, just assume things are in the current buffer.
	  nil
	  ))
   ;; We should be in the correct buffer now, try and figure out
   ;; where the tag is.
   (cond ((semantic-tag-with-position-p tag)
	  ;; If it's a number, go there
	  (goto-char (semantic-tag-start tag)))

104492:8db96f200ac8

  "Go to the location of TAG.
TAG may be a stripped element, in which case PARENT specifies a
parent tag that has position information.
PARENT can also be a `semanticdb-table' object."
  (:override
   (save-match-data
     (cond ((semantic-tag-in-buffer-p tag)
	    ;; We have a linked tag, go to that buffer.
	    (set-buffer (semantic-tag-buffer tag)))
	   ((semantic-tag-file-name tag)
	    ;; If it didn't have a buffer, but does have a file
	    ;; name, then we need to get to that file so the tag
	    ;; location is made accurate.
	    (set-buffer (find-file-noselect (semantic-tag-file-name tag))))
	   ((and parent (semantic-tag-p parent) (semantic-tag-in-buffer-p parent))
	    ;; The tag had nothing useful, but we have a parent with
	    ;; a buffer, then go there.
	    (set-buffer (semantic-tag-buffer parent)))
	   ((and parent (semantic-tag-p parent) (semantic-tag-file-name parent))
	    ;; Tag had nothing, and the parent only has a file-name, then
	    ;; find that file, and switch to that buffer.
	    (set-buffer (find-file-noselect (semantic-tag-file-name parent))))
	   ((and parent (featurep 'semantic/db)
		 (semanticdb-table-child-p parent))
	    (set-buffer (semanticdb-get-buffer parent)))
	   (t
	    ;; Well, just assume things are in the current buffer.
	    nil
	    )))
   ;; We should be in the correct buffer now, try and figure out
   ;; where the tag is.
   (cond ((semantic-tag-with-position-p tag)
	  ;; If it's a number, go there
	  (goto-char (semantic-tag-start tag)))