From bcdb34a4a3bb0af4a816a9ed771edb907a3ac965 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 13 Sep 2001 09:11:53 +0000
Subject: [PATCH] (grep-compute-defaults): Don't set
 grep-command/grep-find-command when it is already non-nil. (grep-command):
 Make it a user option. (grep-find-command): Likewise.

---
 lisp/progmodes/compile.el | 70 ++++++++++++++++++++++-----------------
 1 file changed, 40 insertions(+), 30 deletions(-)

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 0e9f6f715a4..1d75a671d1a 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1,6 +1,6 @@
 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages
 
-;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999, 2001 Free Software Foundation, Inc.
 
 ;; Author: Roland McGrath <roland@gnu.org>
 ;; Maintainer: FSF
@@ -65,6 +65,26 @@ will be parsed and highlighted as soon as you try to move to them."
 		 (integer :tag "First N lines"))
   :group 'compilation)
 
+(defcustom grep-command nil
+  "The default grep command for \\[grep].
+The default value of this variable is set up by `grep-compute-defaults';
+call that function before using this variable in your program."
+  :type 'string
+  :get '(lambda (symbol)
+	  (or grep-command
+	      (progn (grep-compute-defaults) grep-command)))
+  :group 'compilation)
+
+(defcustom grep-find-command nil
+  "The default find command for \\[grep-find].
+The default value of this variable is set up by `grep-compute-defaults';
+call that function before using this variable in your program."
+  :type 'string
+  :get (lambda (symbol)
+	 (or grep-find-command
+	     (progn (grep-compute-defaults) grep-find-command)))
+  :group 'compilation)
+
 (defvar compilation-error-list nil
   "List of error message descriptors for visiting erring functions.
 Each error descriptor is a cons (or nil).  Its car is a marker pointing to
@@ -417,13 +437,6 @@ Otherwise, it saves all modified buffers without asking."
   "The default grep program for `grep-command' and `grep-find-command'.
 This variable's value takes effect when `grep-compute-defaults' is called.")
 
-;; Use -e if grep supports it,
-;; because that avoids lossage if the pattern starts with `-'.
-(defvar grep-command nil
-  "The default grep command for \\[grep].
-The real default value of this variable is set up by `grep-compute-defaults';
-call that function before using this variable.")
-
 (defvar grep-find-use-xargs nil
   "Whether \\[grep-find] uses the `xargs' utility by default.
 
@@ -432,11 +445,6 @@ if not nil and not `gnu', it uses `find -print' and `xargs'.
 
 This variable's value takes effect when `grep-compute-defaults' is called.")
 
-(defvar grep-find-command nil
-  "The default find command for \\[grep-find].
-The default value of this variable is set up by `grep-compute-defaults';
-call that function before using this variable.")
-
 ;;;###autoload
 (defcustom compilation-search-path '(nil)
   "*List of directories to search for source files named in error messages.
@@ -562,14 +570,15 @@ to a function that generates a unique name."
 	   (cons msg code)))))
 
 (defun grep-compute-defaults ()
-  (setq grep-command
-	(if (equal (condition-case nil	; in case "grep" isn't in exec-path
-		       (call-process grep-program nil nil nil
-				     "-e" "foo" null-device)
-		     (error nil))
-		   1)
-	    (format "%s -n -e " grep-program)
-	  (format "%s -n " grep-program)))
+  (unless grep-command
+    (setq grep-command
+	  (if (equal (condition-case nil ; in case "grep" isn't in exec-path
+			 (call-process grep-program nil nil nil
+				       "-e" "foo" null-device)
+		       (error nil))
+		     1)
+	      (format "%s -n -e " grep-program)
+	    (format "%s -n " grep-program))))
   (unless grep-find-use-xargs
     (setq grep-find-use-xargs
 	  (if (and
@@ -580,15 +589,16 @@ to a function that generates a unique name."
                                     "-0" "-e" "echo")
 		     0))
 	      'gnu)))
-  (setq grep-find-command
-	(cond ((eq grep-find-use-xargs 'gnu)
-	       (format "find . -type f -print0 | xargs -0 -e %s"
-		       grep-command))
-	      (grep-find-use-xargs
-	       (format "find . -type f -print | xargs %s" grep-command))
-	      (t (cons (format "find . -type f -exec %s {} %s \\;"
-			       grep-command null-device)
-		       (+ 22 (length grep-command)))))))
+  (unless grep-find-command
+    (setq grep-find-command
+	  (cond ((eq grep-find-use-xargs 'gnu)
+		 (format "find . -type f -print0 | xargs -0 -e %s"
+			 grep-command))
+		(grep-find-use-xargs
+		 (format "find . -type f -print | xargs %s" grep-command))
+		(t (cons (format "find . -type f -exec %s {} %s \\;"
+				 grep-command null-device)
+			 (+ 22 (length grep-command))))))))
 
 ;;;###autoload
 (defun grep (command-args)
-- 
2.39.5