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