xyzzy の describe-function は emacs みたいに関数の定義元へのリンクを出してくれないので、毎回 xyzzy のインストール先の lisp ディレクトリ を grep していた。
いい加減めんどくさくなってきたので、専用のコマンドを作った。(かなりテキトーだけど)
;(require "discrete") ; word-near-point (defun grep-xyzzy-lisp (name) (interactive "sName: " :default0 (word-near-point)) (let ((dir-list *load-path*)) (dolist (d dir-list) (when (file-exist-p d) (grep-xyzzy-lisp-scan-files name d)))) (switch-to-buffer "*grep*")) (defun grep-xyzzy-lisp-scan-files (name dir) (let ((mask "*.l")) (ed::scan-files name mask dir)))
grep 対象のディレクトリは *load-path* から取得した。
本当は describe-function 自体をうまく改造したいところだけど、今はこれでいいとしとく。