.emacs-my
changeset 360 88e4e74c0b6c
parent 359 ee15316c1126
child 361 9dbe92b8b329
equal deleted inserted replaced
359:ee15316c1126 360:88e4e74c0b6c
   197 ;; Assume that we have GNU grep, so -H available.
   197 ;; Assume that we have GNU grep, so -H available.
   198 (setq grep-command "grep -nH ")
   198 (setq grep-command "grep -nH ")
   199 ;; Assume that we have GNU grep, so -H available.
   199 ;; Assume that we have GNU grep, so -H available.
   200 (setq grep-template "grep <C> -nH <R> <F>")
   200 (setq grep-template "grep <C> -nH <R> <F>")
   201 (setq grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs -o -name .git ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH ")
   201 (setq grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs -o -name .git ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH ")
       
   202 ;; This pattern oriented to POSIX like sh shell and availability of GNU grep for -H option.
       
   203 (setq grep-find-template "find . <X> -type f <F> -exec grep <C> -nH <R> {} \\;")
   202 ;; Do not set t because some grep do not has --color options.
   204 ;; Do not set t because some grep do not has --color options.
   203 (setq grep-highlight-matches nil)
   205 (setq grep-highlight-matches nil)
   204 (setq grep-use-null-device nil)
   206 (setq grep-use-null-device nil)
   205 
   207 
   206 (global-set-key [M-f7] 'rgrep)
   208 (global-set-key [M-f7] 'rgrep)