mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

(mode-line-highlight): Replace RoyalBlue4 with

Browse Source 
a button-like box.  Inherit from `highlight' on low colors.
(shadow): Use shades of gray only for color/grayscale with
more than 88 colors.  Use green for light backgrounds with
8 colors, and yellow for dark backgrounds with 8 colors.
This commit is contained in:
Juri Linkov 2005-07-19 11:30:29 +00:00
parent f3abba999d
commit 7ca87dab18
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/faces.el
View File

@ -1882,12 +1882,10 @@ created."
:group 'basic-faces)
(defface mode-line-highlight
'((((class color) (min-colors 88) (background light))
:background "RoyalBlue4" :foreground "white")
(((class color) (min-colors 88) (background dark))
:background "light sky blue" :foreground "black")
(t
:inverse-video t))
'((((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
@ -2149,8 +2147,14 @@ Note: Other faces cannot inherit from the cursor face."
:version "22.1")
(defface shadow
'((((background dark)) :foreground "grey70")
(((background light)) :foreground "grey50"))
'((((class color grayscale) (min-colors 88) (background light))
:foreground "grey50")
(((class color grayscale) (min-colors 88) (background dark))
:foreground "grey70")
(((class color) (min-colors 8) (background light))
:foreground "green")
(((class color) (min-colors 8) (background dark))
:foreground "yellow"))
"Basic face for shadowed text."
:group 'basic-faces
:version "22.1")