From ef779a912cf40b22198e841d42b891cf1fafe255 Mon Sep 17 00:00:00 2001 From: Zhang Tanis Date: Wed, 27 Mar 2013 15:29:32 +0800 Subject: [PATCH] Normally windows user need to copy find.exe of cygwin/mingw to gfind.exe and then add this: (setq find-program "gfind") to let "find-grep" work. So does it. --- mk-project.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mk-project.el b/mk-project.el index 88ff412..2ab03e8 100644 --- a/mk-project.el +++ b/mk-project.el @@ -493,7 +493,7 @@ load time. See also `project-menu-remove'." (file-name-directory mk-proj-tags-file))) (default-directory (file-name-as-directory (file-name-directory mk-proj-tags-file))) - (default-find-cmd (concat "find '" (if relative-tags "." mk-proj-basedir) + (default-find-cmd (concat find-program " '" (if relative-tags "." mk-proj-basedir) "' -type f " (mk-proj-find-cmd-src-args mk-proj-src-patterns))) (etags-cmd (concat (or (mk-proj-find-cmd-val 'src) default-find-cmd) @@ -538,7 +538,7 @@ C-u prefix, start from the current directory." (regex (or phrase (if wap (read-string (concat "Grep project for (default \"" wap "\"): ") nil nil wap) (read-string "Grep project for: ")))) - (find-cmd "find . -type f") + (find-cmd (concat find-program " . -type f")) (grep-cmd (concat "grep -i -n \"" regex "\"")) (default-directory (file-name-as-directory (if (or from-current-dir (mk-proj-has-univ-arg)) @@ -667,7 +667,7 @@ With C-u prefix, start ack from the current directory." (mk-proj-fib-clear) (let* ((default-directory (file-name-as-directory mk-proj-basedir)) (start-dir (if mk-proj-file-index-relative-paths "." mk-proj-basedir)) - (find-cmd (concat "find '" start-dir "' -type f " + (find-cmd (concat find-program " '" start-dir "' -type f " (mk-proj-find-cmd-ignore-args mk-proj-ignore-patterns))) (proc-name "index-process")) (when (mk-proj-get-vcs-path)