Move tab-bar and tab-line faces to faces.el (part of bug#41200)

These are basic faces, so they need to be defined in
faces.el, otherwise (get 'tab-line 'face) returns 0.

* lisp/faces.el (tab-bar, tab-line): Move faces here
from tab-bar.el and tab-line.el.

* lisp/tab-bar.el (tab-bar): Move face to faces.el.
(tab-bar-faces): Add '((tab-bar custom-face))
to the second arg MEMBERS of 'defgroup'.

* lisp/tab-line.el (tab-line): Move face to faces.el.
(tab-line-faces): Add '((tab-line custom-face))
to the second arg MEMBERS of 'defgroup'.
This commit is contained in:
Juri Linkov 2020-06-08 03:21:42 +03:00
parent 35661ef943
commit 6eb18a950d
3 changed files with 29 additions and 29 deletions

View file

@ -2738,6 +2738,33 @@ Note: Other faces cannot inherit from the cursor face."
:version "21.1" :version "21.1"
:group 'basic-faces) :group 'basic-faces)
(defface tab-bar
'((((class color) (min-colors 88))
:inherit variable-pitch
:background "grey85"
:foreground "black")
(((class mono))
:background "grey")
(t
:inverse-video t))
"Tab bar face."
:version "27.1"
:group 'basic-faces)
(defface tab-line
'((((class color) (min-colors 88))
:inherit variable-pitch
:height 0.9
:background "grey85"
:foreground "black")
(((class mono))
:background "grey")
(t
:inverse-video t))
"Tab line face."
:version "27.1"
:group 'basic-faces)
(defface menu (defface menu
'((((type tty)) '((((type tty))
:inverse-video t) :inverse-video t)

View file

@ -44,25 +44,12 @@
:group 'convenience :group 'convenience
:version "27.1") :version "27.1")
(defgroup tab-bar-faces nil (defgroup tab-bar-faces '((tab-bar custom-face)) ; tab-bar is defined in faces.el
"Faces used in the tab bar." "Faces used in the tab bar."
:group 'tab-bar :group 'tab-bar
:group 'faces :group 'faces
:version "27.1") :version "27.1")
(defface tab-bar
'((((class color) (min-colors 88))
:inherit variable-pitch
:background "grey85"
:foreground "black")
(((class mono))
:background "grey")
(t
:inverse-video t))
"Tab bar face."
:version "27.1"
:group 'tab-bar-faces)
(defface tab-bar-tab (defface tab-bar-tab
'((default '((default
:inherit tab-bar) :inherit tab-bar)

View file

@ -35,26 +35,12 @@
:group 'convenience :group 'convenience
:version "27.1") :version "27.1")
(defgroup tab-line-faces nil (defgroup tab-line-faces '((tab-line custom-face)) ; tab-line is defined in faces.el
"Faces used in the tab line." "Faces used in the tab line."
:group 'tab-line :group 'tab-line
:group 'faces :group 'faces
:version "27.1") :version "27.1")
(defface tab-line
'((((class color) (min-colors 88))
:inherit variable-pitch
:height 0.9
:background "grey85"
:foreground "black")
(((class mono))
:background "grey")
(t
:inverse-video t))
"Tab line face."
:version "27.1"
:group 'tab-line-faces)
(defface tab-line-tab (defface tab-line-tab
'((default '((default
:inherit tab-line) :inherit tab-line)