package に対応したタグジャンプ #xyzzy

gistfile1.txt

;; package に対応したタグジャンプ
;; 標準のだと (ed::find-file-internal) などでタグジャンプしても飛べない
(defun lisp-tags-find-target-with-package ()
  (multiple-value-bind (class name functionp)
      (ed::lisp-tags-find-target)
    (values class (substitute-string name "^[a-z]+::?" "") functionp)))

(defun install-lisp-tags-find-target-with-package ()
  (setf tags-find-target #'lisp-tags-find-target-with-package))

(add-hook '*lisp-mode-hook* 'install-lisp-tags-find-target-with-package)
(add-hook '*lisp-interaction-mode-hook* 'install-lisp-tags-find-target-with-package)