From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Jan 2004 17:54:36 +0000 (+0000)
Subject: (grep-compute-defaults): Use executable-command-find-posix-p.
X-Git-Tag: ttn-vms-21-2-B4~7793
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87f54c051d8ecd413fa7423fd44b00d6b1dd355f;p=emacs.git

(grep-compute-defaults): Use executable-command-find-posix-p.
(grep-find): Check `grep-find-command'.
---

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index cb8fcf6e042..279d7211cdd 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -318,7 +318,12 @@ Sets `grep-last-buffer' and runs `grep-setup-hook'."
 	      'gnu)))
   (unless grep-find-command
     (setq grep-find-command
-	  (cond ((eq grep-find-use-xargs 'gnu)
+          (cond ((not (executable-command-find-unix-p "find"))
+		 (message
+		  (concat "compile.el: Unix type find(1) not found. "
+			  "Please set `grep-find-command'."))
+		 nil)
+		((eq grep-find-use-xargs 'gnu)
 		 (format "%s . -type f -print0 | xargs -0 -e %s"
 			 find-program grep-command))
 		(grep-find-use-xargs
@@ -443,11 +448,17 @@ easily repeat a find command."
    (progn
      (unless grep-find-command
        (grep-compute-defaults))
-     (list (read-from-minibuffer "Run find (like this): "
-				 grep-find-command nil nil
-				 'grep-find-history))))
-  (let ((null-device nil))		; see grep
-    (grep command-args)))
+     (if grep-find-command
+	 (list (read-from-minibuffer "Run find (like this): "
+				     grep-find-command nil nil
+                                     'grep-find-history))
+       ;; No default was set
+       (read-string
+        "compile.el: No `grep-find-command' command available. Press RET.")
+       (list nil))))
+  (when (and grep-find-command command-args)
+    (let ((null-device nil))		; see grep
+      (grep command-args))))
 
 (defun grep-expand-command-macros (command &optional regexp files dir excl case-fold)
   "Patch grep COMMAND replacing <D>, etc."