--- a/.emacs-my	Fri Nov 07 14:08:36 2008 +0200
+++ b/.emacs-my	Fri Nov 07 14:20:19 2008 +0200
@@ -316,8 +316,7 @@
 ;; ----------------------------------------------------------------------
 ;; *grep*
 (setq grep-command "find . -name '*' -exec 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-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs ')' -prune -o -type f -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)