summaryrefslogtreecommitdiff
path: root/lisp/cedet/semantic/analyze
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2009-09-05 23:04:46 +0000
committerChong Yidong <cyd@stupidchicken.com>2009-09-05 23:04:46 +0000
commit1fe1547aeee1f09d8c921c0d58424370b6cd539f (patch)
tree513a2e7750f9d1ad4d70f52082db19ba8f2510d8 /lisp/cedet/semantic/analyze
parenta4556861cd40d9e472ad951f11d778591a818d42 (diff)
downloademacs-1fe1547aeee1f09d8c921c0d58424370b6cd539f.tar.gz
emacs-1fe1547aeee1f09d8c921c0d58424370b6cd539f.tar.bz2
emacs-1fe1547aeee1f09d8c921c0d58424370b6cd539f.zip
lisp/cedet/semantic/db-ref.el: Require semantic/db.
(semanticdb-add-reference): Fix feature name. (semanticdb-ref-test): Require eieio-datadebug instead of data-debug. lisp/cedet/semantic/analyze/debug.el: Fix file header. lisp/cedet/semantic/analyze/refs.el: Add local vars for autoloading. Require semantic, semantic/analyze, and semantic/db-find. Declare external functions. (semantic-analyze-proto-impl-toggle): Autoload. Require semantic/decorate. (semantic-analyze-current-tag): Autoload. lisp/cedet/semantic/bovine/c.el: Declare external function. lisp/cedet/semantic/bovine/gcc.el: Add local vars for autoloading. (semantic-gcc-setup): Autoload. lisp/cedet/semantic/decorate/include.el: Declare external functions. lisp/cedet/semantic/symref/cscope.el: Declare external functions. lisp/cedet/semantic/symref/filter.el: Declare external functions. lisp/cedet/semantic/symref/list.el (semantic-symref-rb-goto-file) (semantic-symref-rb-goto-tag, semantic-symref-rb-goto-match): Use last-command-event. (semantic-symref, semantic-symref-symbol): Autoload.
Diffstat (limited to 'lisp/cedet/semantic/analyze')
-rw-r--r--lisp/cedet/semantic/analyze/debug.el9
-rw-r--r--lisp/cedet/semantic/analyze/refs.el19
2 files changed, 25 insertions, 3 deletions
diff --git a/lisp/cedet/semantic/analyze/debug.el b/lisp/cedet/semantic/analyze/debug.el
index db89f66e300..e482f074b31 100644
--- a/lisp/cedet/semantic/analyze/debug.el
+++ b/lisp/cedet/semantic/analyze/debug.el
@@ -32,6 +32,8 @@
;; For semantic-find-tags-by-class:
(eval-when-compile (require 'semantic/find))
+(declare-function ede-get-locator-object "ede/files")
+
;;; Code:
(defun semantic-analyze-debug-assist ()
@@ -399,12 +401,13 @@ or implementing a version specific to ")
(edeobj
(save-excursion
(set-buffer (semanticdb-get-buffer table))
- ede-object))
+ (and (boundp 'ede-object)
+ ede-object)))
(edeproj
(save-excursion
(set-buffer (semanticdb-get-buffer table))
- ede-object-project))
- )
+ (and (boundp 'ede-object-project)
+ ede-object-project))))
(princ "\n\nInclude Path Summary:")
(when edeobj
diff --git a/lisp/cedet/semantic/analyze/refs.el b/lisp/cedet/semantic/analyze/refs.el
index 653a682070d..62e68775d14 100644
--- a/lisp/cedet/semantic/analyze/refs.el
+++ b/lisp/cedet/semantic/analyze/refs.el
@@ -34,6 +34,15 @@
;; Once the raw data is available, queries for impl, prototype, or
;; perhaps other things become cheap.
+(require 'semantic)
+(require 'semantic/analyze)
+(require 'semantic/db-find)
+(eval-when-compile (require 'semantic/find))
+
+(declare-function data-debug-new-buffer "data-debug")
+(declare-function data-debug-insert-object-slots "eieio-datadebug")
+(declare-function semantic-momentary-highlight-tag "semantic/decorate")
+
;;; Code:
(defclass semantic-analyze-references ()
((tag :initarg :tag
@@ -270,6 +279,7 @@ Only works for tags in the global namespace."
;;; USER COMMANDS
;;
+;;;###autoload
(defun semantic-analyze-current-tag ()
"Analyze the tag under point."
(interactive)
@@ -281,13 +291,16 @@ Only works for tags in the global namespace."
(message "Analysis took %.2f seconds." (semantic-elapsed-time start end))
(if sac
(progn
+ (require 'eieio-datadebug)
(data-debug-new-buffer "*Analyzer Reference ADEBUG*")
(data-debug-insert-object-slots sac "]"))
(message "No Context to analyze here."))))
+;;;###autoload
(defun semantic-analyze-proto-impl-toggle ()
"Toggle between the implementation, and a prototype of tag under point."
(interactive)
+ (require 'semantic/decorate)
(semantic-fetch-tags)
(let* ((tag (semantic-current-tag))
(sar (if tag
@@ -312,4 +325,10 @@ Only works for tags in the global namespace."
(provide 'semantic/analyze/refs)
+;; Local variables:
+;; generated-autoload-file: "../loaddefs.el"
+;; generated-autoload-feature: semantic/loaddefs
+;; generated-autoload-load-name: "semantic/analyze/refs"
+;; End:
+
;;; semantic/analyze/refs.el ends here