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:
parent
a4556861cd
commit
1fe1547aee
9 changed files with 68 additions and 13 deletions
|
|
@ -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)
|
||||
(
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue