emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master a57a8b75f50: Make mode-line behavior better with grayscale visual


From: Po Lu
Subject: master a57a8b75f50: Make mode-line behavior better with grayscale visuals
Date: Fri, 28 Apr 2023 02:45:49 -0400 (EDT)

branch: master
commit a57a8b75f50bca3b724d3f49c87aba7a9121bf13
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Make mode-line behavior better with grayscale visuals
    
    * lisp/faces.el (mode-line, mode-line-inactive)
    (mode-line-highlight): Enable gray faces on grayscale visuals.
---
 lisp/faces.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/faces.el b/lisp/faces.el
index 8bf7e4429d9..739e5bdf310 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]