From: Juri Linkov <juri@jurta.org>
Date: Tue, 7 Sep 2004 03:56:35 +0000 (+0000)
Subject: (grep-highlight-matches): Change default from
X-Git-Tag: ttn-vms-21-2-B4~5053
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00889cf95702232c0199b8e9af13c75d219c0e82;p=emacs.git

(grep-highlight-matches): Change default from
`t' to `auto-detect', and type from `boolean' to `choice'.
(grep-compute-defaults): Set `grep-highlight-matches' to `t'
if grep option `--color' is available, or to `nil' otherwise.
(grep-use-null-device): Remove redundant type `boolean' (`choice'
is already defined).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 641f08870ac..c5e07f605e8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2004-09-07  Juri Linkov  <juri@jurta.org>
+
+	* progmodes/grep.el (grep-highlight-matches): Change default from
+	`t' to `auto-detect', and type from `boolean' to `choice'.
+	(grep-compute-defaults): Set `grep-highlight-matches' to `t'
+	if grep option `--color' is available, or to `nil' otherwise.
+	(grep-use-null-device): Remove redundant type `boolean' (`choice'
+	is already defined).
+
 2004-09-06  Eli Zaretskii  <eliz@gnu.org>
 
 	* simple.el (next-error-follow-minor-mode): Fix last change.
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index e4cd0c59dac..8302b8e7987 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -64,8 +64,8 @@ will be parsed and highlighted as soon as you try to move to them."
   :version "21.4"
   :group 'grep)
 
-(defcustom grep-highlight-matches t
-  "*Non-nil to use special markers to highlight grep matches.
+(defcustom grep-highlight-matches 'auto-detect
+  "*If t, use special markers to highlight grep matches.
 
 Some grep programs are able to surround matches with special
 markers in grep output.  Such markers can be used to highlight
@@ -75,7 +75,9 @@ This option sets the environment variable GREP_COLOR to specify
 markers for highlighting and GREP_OPTIONS to add the --color
 option in front of any explicit grep options before starting
 the grep."
-  :type 'boolean
+  :type '(choice (const :tag "Do not highlight matches with grep markers" nil)
+		 (const :tag "Highlight matches with grep markers" t)
+		 (other :tag "Not Set" auto-detect))
   :version "21.4"
   :group 'grep)
 
@@ -110,7 +112,6 @@ necessary if the grep program used supports the `-H' option.
 
 The default value of this variable is set up by `grep-compute-defaults';
 call that function before using this variable in your program."
-  :type 'boolean
   :type '(choice (const :tag "Do Not Append Null Device" nil)
 		 (const :tag "Append Null Device" t)
 		 (other :tag "Not Set" auto-detect))
@@ -415,7 +416,18 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
 		   (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))))))
+  (unless (or (not grep-highlight-matches) (eq grep-highlight-matches t))
+    (setq grep-highlight-matches
+	  (with-temp-buffer
+            (and (equal (condition-case nil
+                            (call-process grep-program nil t nil "--help")
+                          (error nil))
+                        0)
+                 (progn
+                   (goto-char (point-min))
+                   (search-forward "--color" nil t))
+                 t)))))
 
 (defun grep-default-command ()
   (let ((tag-default