--- a/.emacs-my	Wed Nov 05 16:18:33 2008 +0200
+++ b/.emacs-my	Fri Nov 07 14:08:36 2008 +0200
@@ -316,7 +316,8 @@
 ;; ----------------------------------------------------------------------
 ;; *grep*
 (setq grep-command "find . -name '*' -exec grep -nH '' {} ;"
-      grep-find-command "find . -type f ! -path '*.svn*' ! -path '*CVS*' ! -path '*.hg*' -name '*' -print0 | xargs -0 -e grep -nH "
+      ;; XXX Need use -prune for performance.
+      grep-find-command "find . -type f ! -path '*.svn*' ! -path '*CVS*' ! -path '*.hg*' ! -path '*_darcs*' -name '*' -print0 | xargs -0 -e grep -nH "
       grep-highlight-matches nil ; do not set t because some grep do not has --color options
       grep-tree-command "find <D> <X> -type f <F> -print0 | xargs -0 -e grep <C> -nH  <R>"
       grep-use-null-device t)