xyzzy の関数名とかを grep

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 自体をうまく改造したいところだけど、今はこれでいいとしとく。