(compare-windows-face): Use min-colors instead of

checking for tty or pc types.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81da604aea5559cccb1e368500a1e974b10d8a47..c0b9b0100dd34e53ae27ec9c0c2af05b01b3bc27 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * compare-w.el (compare-windows-face): Use min-colors instead of
+       checking for tty or pc types.
+
 2004-05-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (do-auto-fill): Remove unused vars `bol' and `opoint'.

diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index d283016750f62a29a355686823686bad0366be8c..7e23c9efedf1e02130c1b6e753b3a6c993cf98cf 100644 (file)
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -1,6 +1,6 @@
 ;;; compare-w.el --- compare text between windows for Emacs
 
-;; Copyright (C) 1986, 1989, 1993, 1997, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 1986,1989,1993,1997,2003,2004 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: convenience files
@@ -117,12 +117,12 @@ and the value `((4) (4))' for horizontally split windows."
   :group 'compare-w)
 
 (defface compare-windows-face
-  '((((type tty pc) (class color))
-     (:background "turquoise3"))
-    (((class color) (background light))
+  '((((class color) (min-colors 88) (background light))
      (:background "paleturquoise"))
-    (((class color) (background dark))
+    (((class color) (min-colors 88) (background dark))
      (:background "paleturquoise4"))
+    (((class color))
+     (:background "turquoise3"))
     (t (:underline t)))
   "Face for highlighting of compare-windows difference regions."
   :group 'compare-w)