# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 952874952 0
# Node ID 853a7fcaf7f07495012405b3b682764d0f1eebd8
# Parent  90875cd704b55369af8e26e242f183b7c4b0237d
(info-lookup): Use display-color-p.

diff -r 90875cd704b5 -r 853a7fcaf7f0 lisp/info-look.el
--- a/lisp/info-look.el	Sun Mar 12 15:27:33 2000 +0000
+++ b/lisp/info-look.el	Sun Mar 12 15:29:12 2000 +0000
@@ -361,7 +361,7 @@
 		      (re-search-forward
 		       (concat prefix (regexp-quote item) suffix))
 		      (goto-char (match-beginning 0))
-		      (and window-system info-lookup-highlight-face
+		      (and (display-color-p) info-lookup-highlight-face
 			   ;; Search again for ITEM so that the first
 			   ;; occurence of ITEM will be highlighted.
 			   (re-search-forward (regexp-quote item))