comparison lisp/cedet/semantic/symref/list.el @ 104522:2a2b8ae24b17

* cedet/semantic/symref/list.el: Require semantic/complete. (semantic-symref-symbol): Use semantic-complete-read-tag-buffer-deep. * cedet/semantic/ia.el (semantic-ia-complete-symbol-menu): Remove. (semantic-ia-complete-symbol): Use semantic-complete-symbol.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 27 Sep 2009 03:59:51 +0000
parents 6065d66f0c99
children b8a381efb42f
comparison
equal deleted inserted replaced
104521:6d72a8365359 104522:2a2b8ae24b17
32 ;; operations. 32 ;; operations.
33 ;; 33 ;;
34 ;; NOTE: Need to add some refactoring tools. 34 ;; NOTE: Need to add some refactoring tools.
35 35
36 (require 'semantic/symref) 36 (require 'semantic/symref)
37 (require 'semantic/complete)
37 (require 'pulse) 38 (require 'pulse)
38 39
39 ;;; Code: 40 ;;; Code:
40 41
41 ;;;###autoload 42 ;;;###autoload
67 This command uses the currently configured references tool within the 68 This command uses the currently configured references tool within the
68 current project to find references to the input SYM. The 69 current project to find references to the input SYM. The
69 references are the organized by file and the name of the function 70 references are the organized by file and the name of the function
70 they are used in. 71 they are used in.
71 Display the references in`semantic-symref-results-mode'" 72 Display the references in`semantic-symref-results-mode'"
72 (interactive (list (car (senator-jump-interactive "Symrefs for: " nil nil t))) 73 (interactive (list (semantic-tag-name (semantic-complete-read-tag-buffer-deep
73 ) 74 "Symrefs for: "))))
74 (semantic-fetch-tags) 75 (semantic-fetch-tags)
75 (let ((res nil) 76 (let ((res nil)
76 ) 77 )
77 ;; Gather results and tags 78 ;; Gather results and tags
78 (message "Gathering References...") 79 (message "Gathering References...")