>>672
これでどうかしら
ただ find-dired を直接呼び出した時の履歴に除外 dir がどんどん溜まってくのが使いづらいな

(defcustom find-grep-dired-ignore-directories '(".git" "RCS" "CVS" ".svn" ".hg" ".bzr")
"`find-grep-dired' で検索時に除外するディレクトリ名のリスト.")

(defvar find-dired-ignore-directories nil
"`find-dired' で検索時に除外するディレクトリ名のリスト.")

(defadvice find-dired (before ad-find-dired-ignore-dirs activate)
"`find-dired-ignore-directories' で指定されたディレクトリ以下を検索対象外にする."
(when find-dired-ignore-directories
(ad-set-arg 1
(concat " " (shell-quote-argument "(") " "
(mapconcat (lambda (d)
(format "-path \"*/%s\"" d))
find-dired-ignore-directories
" -o ")
" " (shell-quote-argument ")") " -prune -o "
(ad-get-arg 1)))
))

(defadvice find-grep-dired (around ad-find-grep-dired-ignore-dirs activate)
"`find-grep-dired-ignore-directories' で指定されたディレクトリ以下を検索対象外にする."
(let ((find-dired-ignore-directories find-grep-dired-ignore-directories))
ad-do-it))