mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Make mode-line behavior better with grayscale visuals

Browse Source 
* lisp/faces.el (mode-line, mode-line-inactive)
(mode-line-highlight): Enable gray faces on grayscale visuals.
This commit is contained in:
Po Lu 2023-04-28 14:43:31 +08:00
parent a97c382682
commit a57a8b75f5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/faces.el
View File

@ -2696,7 +2696,7 @@ non-nil."
:version "22.1")
(defface mode-line
'((((class color) (min-colors 88))
'((((class color grayscale) (min-colors 88))
:box (:line-width -1 :style released-button)
:background "grey75" :foreground "black")
(t
@ -2719,11 +2719,11 @@ This inherits from the `mode-line' face."
(defface mode-line-inactive
'((default
:inherit mode-line)
(((class color) (min-colors 88) (background light))
(((class color grayscale) (min-colors 88) (background light))
:weight light
:box (:line-width -1 :color "grey75" :style nil)
:foreground "grey20" :background "grey90")
(((class color) (min-colors 88) (background dark) )
(((class color grayscale) (min-colors 88) (background dark) )
:weight light
:box (:line-width -1 :color "grey40" :style nil)
:foreground "grey80" :background "grey30"))
@ -2733,7 +2733,7 @@ This inherits from the `mode-line' face."
:group 'basic-faces)
(defface mode-line-highlight
'((((supports :box t) (class color) (min-colors 88))
'((((supports :box t) (class color grayscale) (min-colors 88))
:box (:line-width 2 :color "grey40" :style released-button))
(t
:inherit highlight))