From 543335974da5e0c4cb716bf98541c61b2847c9e5 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 7 Oct 2002 22:48:47 +0000
Subject: [PATCH] (grep-compute-defaults): Set the standard-value properties of
 the variables being initialized.

---
 lisp/progmodes/compile.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 8ef974b5b1f..a722ae62484 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -100,7 +100,8 @@ will be parsed and highlighted as soon as you try to move to them."
 			 (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 @@ will be parsed and highlighted as soon as you try to move to them."
                (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 @@ will be parsed and highlighted as soon as you try to move to them."
                          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 @@ will be parsed and highlighted as soon as you try to move to them."
 		   (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].
-- 
2.39.2