* cedet/srecode/srt-mode.el (semantic-analyze-possible-completions):

[bpt/emacs.git] / lisp / cedet / semantic / symref.el

diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el
index 56c6cc3..16f351c 100644 (file)
--- a/lisp/cedet/semantic/symref.el
+++ b/lisp/cedet/semantic/symref.el
@@ -1,6 +1,6 @@
 ;;; semantic/symref.el --- Symbol Reference API
 
-;;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
 
@@ -25,7 +25,7 @@
 ;;
 ;; Semantic's native parsing tools do not handle symbol references.
 ;; Tracking such information is a task that requires a huge amount of
-;; space and processing not apropriate for an Emacs Lisp program.
+;; space and processing not appropriate for an Emacs Lisp program.
 ;;
 ;; Many desired tools used in refactoring, however, need to have
 ;; such references available to them.  This API aims to provide a
@@ -58,14 +58,13 @@
 ;;
 ;; ADD A NEW EXTERNAL TOOL
 ;;
-;; To support a new external tool, sublcass `semantic-symref-tool-baseclass'
+;; To support a new external tool, subclass `semantic-symref-tool-baseclass'
 ;; and implement the methods.  The baseclass provides support for
 ;; managing external processes that produce parsable output.
 ;;
 ;; Your tool should then create an instance of `semantic-symref-result'.
 
 (require 'semantic)
-;; (require 'ede)
 
 (defvar ede-minor-mode)
 (declare-function data-debug-new-buffer "data-debug")
@@ -148,6 +147,7 @@ ARGS are the initialization arguments to pass to the created class."
 ;;; EXTERNAL API
 ;;
 
+;;;###autoload
 (defun semantic-symref-find-references-by-name (name &optional scope tool-return)
   "Find a list of references to NAME in the current project.
 Optional SCOPE specifies which file set to search.  Defaults to 'project.
@@ -171,6 +171,7 @@ to perform the search.  This was added for use by a test harness."
        (semantic-symref-data-debug-last-result))))
   )
 
+;;;###autoload
 (defun semantic-symref-find-tags-by-name (name &optional scope)
   "Find a list of references to NAME in the current project.
 Optional SCOPE specifies which file set to search.  Defaults to 'project.
@@ -190,6 +191,7 @@ Returns an object of class `semantic-symref-result'."
        (semantic-symref-data-debug-last-result))))
   )
 
+;;;###autoload
 (defun semantic-symref-find-tags-by-regexp (name &optional scope)
   "Find a list of references to NAME in the current project.
 Optional SCOPE specifies which file set to search.  Defaults to 'project.
@@ -209,6 +211,7 @@ Returns an object of class `semantic-symref-result'."
        (semantic-symref-data-debug-last-result))))
   )
 
+;;;###autoload
 (defun semantic-symref-find-tags-by-completion (name &optional scope)
   "Find a list of references to NAME in the current project.
 Optional SCOPE specifies which file set to search.  Defaults to 'project.
@@ -228,6 +231,7 @@ Returns an object of class `semantic-symref-result'."
        (semantic-symref-data-debug-last-result))))
   )
 
+;;;###autoload
 (defun semantic-symref-find-file-references-by-name (name &optional scope)
   "Find a list of references to NAME in the current project.
 Optional SCOPE specifies which file set to search.  Defaults to 'project.
@@ -247,8 +251,9 @@ Returns an object of class `semantic-symref-result'."
        (semantic-symref-data-debug-last-result))))
   )
 
+;;;###autoload
 (defun semantic-symref-find-text (text &optional scope)
-  "Find a list of occurances of TEXT in the current project.
+  "Find a list of occurrences of TEXT in the current project.
 TEXT is a regexp formatted for use with egrep.
 Optional SCOPE specifies which file set to search.  Defaults to 'project.
 Refers to `semantic-symref-tool', to determine the reference tool to use
@@ -471,8 +476,7 @@ The symref TOOL should already contain the search criteria."
   "Parse the entire OUTPUTBUFFER of a symref tool.
 Calls the method `semantic-symref-parse-tool-output-one-line' over and
 over until it returns nil."
-  (save-excursion
-    (set-buffer outputbuffer)
+  (with-current-buffer outputbuffer
     (goto-char (point-min))
     (let ((result nil)
          (hit nil))
@@ -487,4 +491,11 @@ over until it returns nil."
 
 (provide 'semantic/symref)
 
+;; Local variables:
+;; generated-autoload-file: "loaddefs.el"
+;; generated-autoload-feature: semantic/loaddefs
+;; generated-autoload-load-name: "semantic/symref"
+;; End:
+
+;; arch-tag: 928394b7-19ef-4f76-8cb3-37e9a9891984
 ;;; semantic/symref.el ends here