(defun jde-custom-find-dependency (&optional token)
"Overload of `semantic-find-dependency'."
(save-excursion
(set-buffer (semantic-token-buffer token))
(let* ((name (semantic-token-name token))
(class (jde-parse-get-unqualified-name name))
(package (jde-parse-get-package-from-name name)))
(if (string-match "*" class)
(catch 'found
(loop for dir in jde-sourcepath do
(progn
(setq
dir
(jde-normalize-path dir 'jde-sourcepath))
(let* ((pkg-path (subst-char-in-string ?. ?/ package))
(pkg-dir (expand-file-name pkg-path dir)))
(if (file-exists-p pkg-dir)
(throw 'found pkg-dir))))))
(jde-find-class-source name))
)))
(add-hook 'jde-mode-hook
(lambda ()
(add-hook 'jde-mode-hook 'jde-custom-jde-mode-hook t)
(semantic-install-function-overrides
'((find-dependency . jde-custom-find-dependency))
)
))
Tim Babin
Nortel Networks
CS3K/IMS OAM&P
(972) 685-4976
ESN 445-4976
