1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

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.
This commit is contained in:
Chong Yidong 2009-09-05 23:04:46 +00:00
parent a4556861cd
commit 1fe1547aee
9 changed files with 68 additions and 13 deletions

View file

@ -26,6 +26,10 @@
(require 'cedet-cscope)
(require 'semantic/symref)
(defvar ede-minor-mode)
(declare-function ede-toplevel "ede/files")
(declare-function ede-project-root-directory "ede/files")
;;; Code:
(defclass semantic-symref-tool-cscope (semantic-symref-tool-baseclass)
(

View file

@ -34,6 +34,11 @@
;;; Code:
(require 'semantic)
(declare-function srecode-active-template-region "srecode/fields")
(declare-function srecode-delete "srecode/fields")
(declare-function srecode-field "srecode/fields")
(declare-function srecode-template-inserted-region "srecode/fields")
(declare-function srecode-overlaid-activate "srecode/fields")
;;; FILTERS
;;
@ -123,7 +128,7 @@ Depends on the SRecode Field editing API."
;; I think we're good for this example. Give it a go through
;; our fancy interface from SRecode.
(require 'srecode-fields)
(require 'srecode/fields)
;; Make sure there is nothing active.
(let ((ar (srecode-active-template-region)))

View file

@ -38,6 +38,7 @@
;;; Code:
;;;###autoload
(defun semantic-symref ()
"Find references to the current tag.
This command uses the currently configured references tool within the
@ -60,6 +61,7 @@ Display the references in`semantic-symref-results-mode'"
(setq res (semantic-symref-find-references-by-name (semantic-tag-name ct)))
(semantic-symref-produce-list-on-results res (semantic-tag-name ct))))
;;;###autoload
(defun semantic-symref-symbol (sym)
"Find references to the symbol SYM.
This command uses the currently configured references tool within the
@ -276,7 +278,7 @@ BUTTON is the button that was clicked."
)
(switch-to-buffer-other-window buff)
(pulse-momentary-highlight-one-line (point))
(when (eq last-command-char ? ) (select-window win))
(when (eq last-command-event ?\s) (select-window win))
))
@ -291,7 +293,7 @@ BUTTON is the button that was clicked."
(switch-to-buffer-other-window buff)
(semantic-go-to-tag tag)
(pulse-momentary-highlight-one-line (point))
(when (eq last-command-char ? ) (select-window win))
(when (eq last-command-event ?\s) (select-window win))
)
)
@ -305,9 +307,9 @@ BUTTON is the button that was clicked."
(win (selected-window))
)
(switch-to-buffer-other-window buff)
(goto-line line)
(with-no-warnings (goto-line line))
(pulse-momentary-highlight-one-line (point))
(when (eq last-command-char ? ) (select-window win))
(when (eq last-command-event ?\s) (select-window win))
)
)
@ -325,4 +327,10 @@ BUTTON is the button that was clicked."
(provide 'semantic/symref/list)
;; Local variables:
;; generated-autoload-file: "../loaddefs.el"
;; generated-autoload-feature: semantic/loaddefs
;; generated-autoload-load-name: "semantic/symref/list"
;; End:
;;; semantic/symref/list.el ends here