diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2009-09-05 23:04:46 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2009-09-05 23:04:46 +0000 |
commit | 1fe1547aeee1f09d8c921c0d58424370b6cd539f (patch) | |
tree | 513a2e7750f9d1ad4d70f52082db19ba8f2510d8 /lisp/cedet/semantic/analyze | |
parent | a4556861cd40d9e472ad951f11d778591a818d42 (diff) | |
download | emacs-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.el | 9 | ||||
-rw-r--r-- | lisp/cedet/semantic/analyze/refs.el | 19 |
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 |