aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2019-10-14 23:07:23 +0300
committerJuri Linkov2019-10-14 23:07:23 +0300
commit674515dd75aea441bc8847a73da18ddd303668e1 (patch)
tree2580ca4fd9241e61480ccf261e34e87dbbaa67cb
parent6aa0e0c754553e4beb7b4f2774bf7f0e29cb346b (diff)
downloademacs-674515dd75aea441bc8847a73da18ddd303668e1.tar.gz
emacs-674515dd75aea441bc8847a73da18ddd303668e1.zip
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.
-rw-r--r--lisp/tab-bar.el5
-rw-r--r--lisp/tab-line.el8
2 files changed, 9 insertions, 4 deletions
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 @@
51(defface tab-bar 51(defface tab-bar
52 '((((type x w32 ns) (class color)) 52 '((((type x w32 ns) (class color))
53 :height 1.1 53 :height 1.1
54 :inherit variable-pitch
54 :background "grey85" 55 :background "grey85"
55 :foreground "black") 56 :foreground "black")
56 (((type x) (class mono)) 57 (((type x) (class mono))
@@ -62,7 +63,9 @@
62 :group 'tab-bar-faces) 63 :group 'tab-bar-faces)
63 64
64(defface tab-bar-tab 65(defface tab-bar-tab
65 '((((class color) (min-colors 88)) 66 '((default
67 :inherit tab-bar)
68 (((class color) (min-colors 88))
66 :box (:line-width 1 :style released-button)) 69 :box (:line-width 1 :style released-button))
67 (t 70 (t
68 :inverse-video nil)) 71 :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 @@
43 43
44(defface tab-line 44(defface tab-line
45 '((((type x w32 ns) (class color)) 45 '((((type x w32 ns) (class color))
46 :inherit variable-pitch
46 :background "grey85" 47 :background "grey85"
47 :foreground "black") 48 :foreground "black")
48 (((type x) (class mono)) 49 (((type x) (class mono))
@@ -54,9 +55,10 @@
54 :group 'tab-line-faces) 55 :group 'tab-line-faces)
55 56
56(defface tab-line-tab 57(defface tab-line-tab
57 '((((class color) (min-colors 88)) 58 '((default
58 :box (:line-width 1 :style released-button) 59 :inherit tab-line)
59 :background "grey85") 60 (((class color) (min-colors 88))
61 :box (:line-width 1 :style released-button))
60 (t 62 (t
61 :inverse-video nil)) 63 :inverse-video nil))
62 "Tab line face for selected tab." 64 "Tab line face for selected tab."