From: Juri Linkov <juri@linkov.net>
Date: Tue, 4 Feb 2020 23:27:30 +0000 (+0200)
Subject: Fix faces tab-bar and tab-line.
X-Git-Tag: emacs-27.0.90~70
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef5fba9f40;p=emacs.git

Fix faces tab-bar and tab-line.

* lisp/tab-bar.el (tab-bar) <defface>:
* lisp/tab-line.el (tab-line) <defface>:
Check for min-colors 88 instead of type x.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index ebb0c566ad1..fac27f41ba9 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -51,11 +51,11 @@
   :version "27.1")
 
 (defface tab-bar
-  '((((type x w32 ns) (class color))
+  '((((class color) (min-colors 88))
      :inherit variable-pitch
      :background "grey85"
      :foreground "black")
-    (((type x) (class mono))
+    (((class mono))
      :background "grey")
     (t
      :inverse-video t))
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 149fe8289c4..8f1221abe41 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -42,12 +42,12 @@
   :version "27.1")
 
 (defface tab-line
-  '((((type x w32 ns) (class color))
+  '((((class color) (min-colors 88))
      :inherit variable-pitch
      :height 0.9
      :background "grey85"
      :foreground "black")
-    (((type x) (class mono))
+    (((class mono))
      :background "grey")
     (t
      :inverse-video t))