mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(mode-line-faces): New defgroup.

Browse source 
(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'.
This commit is contained in:
Juri Linkov 2006-01-16 23:45:34 +00:00
parent 1e4db53b60
commit 97bca259c1
1 changed files with 26 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lisp/faces.el
View file

@ -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