From 88537a99d684a40aeaf960a277447caf575d689a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 20 May 2004 16:45:28 +0000 Subject: [PATCH] (compare-windows-face): Use min-colors instead of checking for tty or pc types. --- lisp/ChangeLog | 5 +++++ lisp/compare-w.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81da604aea5..c0b9b0100dd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-05-20 Dan Nicolaescu + + * compare-w.el (compare-windows-face): Use min-colors instead of + checking for tty or pc types. + 2004-05-19 Stefan Monnier * simple.el (do-auto-fill): Remove unused vars `bol' and `opoint'. diff --git a/lisp/compare-w.el b/lisp/compare-w.el index d283016750f..7e23c9efedf 100644 --- 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) -- 2.39.5