Mercurial > emacs
diff lisp/cedet/semantic/analyze/refs.el @ 104456:6065d66f0c99
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.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 05 Sep 2009 23:04:46 +0000 |
parents | b66bb908c129 |
children | 6ccad1511df1 |
line wrap: on
line diff
--- a/lisp/cedet/semantic/analyze/refs.el Sat Sep 05 21:20:17 2009 +0000 +++ b/lisp/cedet/semantic/analyze/refs.el Sat Sep 05 23:04:46 2009 +0000 @@ -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 @@ ;;; USER COMMANDS ;; +;;;###autoload (defun semantic-analyze-current-tag () "Analyze the tag under point." (interactive) @@ -281,13 +291,16 @@ (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 @@ (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