From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 13 Mar 2021 14:17:24 +0000 (+0100)
Subject: Adjust colors of help-key-binding face for readability
X-Git-Tag: emacs-28.0.90~3288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8415a9513085d1c307610e2275655699cf7a55d5;p=emacs.git

Adjust colors of help-key-binding face for readability

* lisp/faces.el (help-key-binding): Adjust colors for improved
readability, and use a flat :box for highlighting (with negative
:line-width height to avoid any vertical resizing of the minibuffer).

This was discussed in:
https://lists.gnu.org/r/emacs-devel/2021-03/msg00535.html
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 1e668a43f43..ec650e30cab 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2816,8 +2816,12 @@ Note: Other faces cannot inherit from the cursor face."
   :group 'help)
 
 (defface help-key-binding
-  '((((class color) (min-colors 88) (background light)) :background "grey90")
-    (((class color) (min-colors 88) (background dark)) :background "grey25")
+  '((((class color) (min-colors 88) (background light))
+     :background "grey92" :foreground "DarkBlue"
+     :box (:line-width (1 . -1) :color "grey80"))
+    (((class color) (min-colors 88) (background dark))
+     :background "grey23" :foreground "LightBlue"
+     :box (:line-width (1 . -1) :color "grey35"))
     (((class color grayscale) (background light)) :background "grey90")
     (((class color grayscale) (background dark)) :background "grey25")
     (t :background "grey90"))