From ef5fba9f40c8d3bdb314af2e00a51398d112d357 Mon Sep 17 00:00:00 2001
From: Juri Linkov <juri@linkov.net>
Date: Wed, 5 Feb 2020 01:27:30 +0200
Subject: [PATCH] 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.
---
lisp/tab-bar.el | 4 ++--
lisp/tab-line.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
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))
--
2.39.5