* files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede.

[bpt/emacs.git] / lisp / cedet / semantic / symref / filter.el

diff --git a/lisp/cedet/semantic/symref/filter.el b/lisp/cedet/semantic/symref/filter.el
index f6f4cb1..7052d76 100644 (file)
--- a/lisp/cedet/semantic/symref/filter.el
+++ b/lisp/cedet/semantic/symref/filter.el
@@ -82,28 +82,6 @@ Search occurs in the current buffer between START and END."
                   (funcall hookfcn start end prefix)))))
           (point)))))))
 
-;;;###autoload
-(defun semantic-symref-test-count-hits-in-tag ()
-  "Lookup in the current tag the symbol under point.
-the count all the other references to the same symbol within the
-tag that contains point, and return that."
-  (interactive)
-  (let* ((ctxt (semantic-analyze-current-context))
-        (target (car (reverse (oref ctxt prefix))))
-        (tag (semantic-current-tag))
-        (start (current-time))
-        (Lcount 0))
-    (when (semantic-tag-p target)
-      (semantic-symref-hits-in-region
-       target (lambda (start end prefix) (setq Lcount (1+ Lcount)))
-       (semantic-tag-start tag)
-       (semantic-tag-end tag))
-      (when (interactive-p)
-       (message "Found %d occurances of %s in %.2f seconds"
-                Lcount (semantic-tag-name target)
-                (semantic-elapsed-time start (current-time))))
-      Lcount)))
-
 (defun semantic-symref-rename-local-variable ()
   "Fancy way to rename the local variable under point.
 Depends on the SRecode Field editing API."
@@ -156,10 +134,4 @@ Depends on the SRecode Field editing API."
 
 (provide 'semantic/symref/filter)
 
-;; Local variables:
-;; generated-autoload-file: "../loaddefs.el"
-;; generated-autoload-feature: semantic/loaddefs
-;; generated-autoload-load-name: "semantic/symref/filter"
-;; End:
-
 ;;; semantic/symref/filter.el ends here