# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1034030927 0
# Node ID 1207b03521f97ab19b4efd5d5ee126212e51e1ad
# Parent  a9de3e936eef3e6e1724c56fb2058e22dbe483b4
(grep-compute-defaults): Set the standard-value
properties of the variables being initialized.

diff -r a9de3e936eef -r 1207b03521f9 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Oct 07 22:47:41 2002 +0000
+++ b/lisp/progmodes/compile.el	Mon Oct 07 22:48:47 2002 +0000
@@ -100,7 +100,8 @@
 			 (error nil))
 		       1)
 		(format "%s %s -e " grep-program required-options)
-	      (format "%s %s " grep-program required-options)))))
+	      (format "%s %s " grep-program required-options))))
+   (put 'grep-command 'standard-value (list (custom-quote grep-command))))
   (unless grep-find-use-xargs
     (setq grep-find-use-xargs
 	  (if (and
@@ -110,7 +111,9 @@
                (equal (call-process "xargs" nil nil nil
                                     "-0" "-e" "echo")
 		     0))
-	      'gnu)))
+	      'gnu))
+    (put 'grep-find-use-xargs 'standard-value
+	 (list (custom-quote grep-find-use-xargs))))
   (unless grep-find-command
     (setq grep-find-command
 	  (cond ((eq grep-find-use-xargs 'gnu)
@@ -121,7 +124,9 @@
                          find-program grep-command))
 		(t (cons (format "%s . -type f -exec %s {} %s \\;"
 				 find-program grep-command null-device)
-			 (+ 22 (length grep-command)))))))
+			 (+ 22 (length grep-command))))))
+    (put 'grep-find-command 'standard-value
+	 (list (custom-quote grep-find-command))))
   (unless grep-tree-command
     (setq grep-tree-command
 	  (let* ((glen (length grep-program))
@@ -133,7 +138,9 @@
 		   (format "%s <D> <X> -type f <F> -print | xargs %s <R>"
 			   find-program gcmd))
 		  (t (format "%s <D> <X> -type f <F> -exec %s <R> {} %s \\;"
-			     find-program gcmd null-device)))))))
+			     find-program gcmd null-device)))))
+    (put 'grep-tree-command 'standard-value
+	 (list (custom-quote grep-tree-command)))))
 
 (defcustom grep-command nil
   "The default grep command for \\[grep].