emacs-diffs
[Top][All Lists]
Advanced

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

master 8b024a6: * lisp/wid-edit.el (widget-field): Add subtle border to


From: Stefan Kangas
Subject: master 8b024a6: * lisp/wid-edit.el (widget-field): Add subtle border to face.
Date: Sun, 14 Mar 2021 19:27:44 -0400 (EDT)

branch: master
commit 8b024a6ff10f7907445ea60c4db8355638616ed1
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    * lisp/wid-edit.el (widget-field): Add subtle border to face.
---
 lisp/wid-edit.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index de2b5d4..35e7b9c 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -131,16 +131,21 @@ This exists as a variable so it can be set locally in 
certain buffers.")
                        (((class grayscale color)
                          (background light))
                         :background "gray85"
+                         ;; We use negative thickness of the horizontal box 
border line to
+                         ;; avoid making lines taller when fields become 
visible.
+                         :box (:line-width (1 . -1) :color "gray80")
                         :extend t)
                        (((class grayscale color)
                          (background dark))
                         :background "dim gray"
+                         :box (:line-width (1 . -1) :color "gray46")
                         :extend t)
                        (t
                         :slant italic
                         :extend t))
   "Face used for editable fields."
-  :group 'widget-faces)
+  :group 'widget-faces
+  :version "28.1")
 
 (defface widget-single-line-field '((((type tty))
                                     :background "green3"



reply via email to

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