From: Juri Linkov <juri@linkov.net>
Date: Mon, 14 Oct 2019 20:07:23 +0000 (+0300)
Subject: Use variable-pitch fonts in tab-bar and tab-line faces
X-Git-Tag: emacs-27.0.90~1067
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=674515dd75aea441bc8847a73da18ddd303668e1;p=emacs.git

Use variable-pitch fonts in tab-bar and tab-line faces

* lisp/tab-bar.el (tab-bar):
* lisp/tab-line.el (tab-line):
Inherit face from variable-pitch.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index b7de64d4ae9..e96d5d15b2b 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -51,6 +51,7 @@
 (defface tab-bar
   '((((type x w32 ns) (class color))
      :height 1.1
+     :inherit variable-pitch
      :background "grey85"
      :foreground "black")
     (((type x) (class mono))
@@ -62,7 +63,9 @@
   :group 'tab-bar-faces)
 
 (defface tab-bar-tab
-  '((((class color) (min-colors 88))
+  '((default
+      :inherit tab-bar)
+    (((class color) (min-colors 88))
      :box (:line-width 1 :style released-button))
     (t
      :inverse-video nil))
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index b552df9ba58..69b510b64c0 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -43,6 +43,7 @@
 
 (defface tab-line
   '((((type x w32 ns) (class color))
+     :inherit variable-pitch
      :background "grey85"
      :foreground "black")
     (((type x) (class mono))
@@ -54,9 +55,10 @@
   :group 'tab-line-faces)
 
 (defface tab-line-tab
-  '((((class color) (min-colors 88))
-     :box (:line-width 1 :style released-button)
-     :background "grey85")
+  '((default
+      :inherit tab-line)
+    (((class color) (min-colors 88))
+     :box (:line-width 1 :style released-button))
     (t
      :inverse-video nil))
   "Tab line face for selected tab."