Commit 97bca259 authored by Juri Linkov's avatar Juri Linkov
Browse files

(mode-line-faces): New defgroup.

(mode-line-highlight): Move definition after new defgroup.
(mode-line, mode-line-inactive, mode-line-highlight):
Replace :group `modeline' with `mode-line-faces'.
(mode-line-buffer-id): New face.
(modeline-buffer-id): New face alias.
(vertical-border): Remove :group `modeline'.
parent 1e4db53b
......@@ -1932,16 +1932,6 @@ created."
"Basic face for highlighting."
:group 'basic-faces)
(defface mode-line-highlight
'((((class color) (min-colors 88))
:box (:line-width 2 :color "grey40" :style released-button))
(t
:inherit highlight))
"Basic mode line face for highlighting."
:version "22.1"
:group 'modeline
:group 'basic-faces)
(defface region
'((((class color) (min-colors 88) (background dark))
:background "blue3")
......@@ -2006,6 +1996,12 @@ created."
:group 'basic-faces
:version "22.1")
(defgroup mode-line-faces nil
"Faces used in the mode line."
:group 'modeline
:group 'faces
:version "22.1")
(defface mode-line
'((((class color) (min-colors 88))
:box (:line-width -1 :style released-button)
......@@ -2014,7 +2010,7 @@ created."
:inverse-video t))
"Basic mode line face for selected window."
:version "21.1"
:group 'modeline
:group 'mode-line-faces
:group 'basic-faces)
(defface mode-line-inactive
......@@ -2030,13 +2026,31 @@ created."
:foreground "grey80" :background "grey30"))
"Basic mode line face for non-selected windows."
:version "22.1"
:group 'modeline
:group 'mode-line-faces
:group 'basic-faces)
(defface mode-line-highlight
'((((class color) (min-colors 88))
:box (:line-width 2 :color "grey40" :style released-button))
(t
:inherit highlight))
"Basic mode line face for highlighting."
:version "22.1"
:group 'mode-line-faces
:group 'basic-faces)
(defface mode-line-buffer-id
'((t (:weight bold)))
"Face used for buffer identification parts of the mode line."
:version "22.1"
:group 'mode-line-faces
:group 'basic-faces)
;; Make `modeline' an alias for `mode-line', for compatibility.
(put 'modeline 'face-alias 'mode-line)
(put 'modeline-inactive 'face-alias 'mode-line-inactive)
(put 'modeline-highlight 'face-alias 'mode-line-highlight)
(put 'modeline-buffer-id 'face-alias 'mode-line-buffer-id)
(defface header-line
'((default
......@@ -2077,7 +2091,6 @@ created."
'((((type tty)) :inherit mode-line-inactive))
"Face used for vertical window dividers on ttys."
:version "22.1"
:group 'modeline
:group 'basic-faces)
(defface minibuffer-prompt
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment