mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Improve color contrast of refine-related diff faces on dark backgrounds

Browse source 
* lisp/vc/diff-mode.el (diff-refine-removed, diff-refine-added):
* lisp/vc/ediff-init.el (ediff-fine-diff-A, ediff-fine-diff-B):
* lisp/vc/smerge-mode.el (smerge-refined-removed, smerge-refined-added):
Lower the dominant component of RGB colors from "aa" to "88" (bug#79633).
This commit is contained in:
Juri Linkov 2025-10-16 20:05:41 +03:00
parent bbbad93498
commit b0078bfa15
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc/diff-mode.el
View file

@ -2471,7 +2471,7 @@ With non-nil prefix arg, re-diff all the hunks."
(((class color) (min-colors 88) (background light))
:background "#ffbbbb")
(((class color) (min-colors 88) (background dark))
:background "#aa2222"))
:background "#882222"))
"Face used for removed characters shown by `diff-refine-hunk'."
:version "24.3")
@ -2483,7 +2483,7 @@ With non-nil prefix arg, re-diff all the hunks."
(((class color) (min-colors 88) (background light))
:background "#aaffaa")
(((class color) (min-colors 88) (background dark))
:background "#22aa22"))
:background "#228822"))
"Face used for added characters shown by `diff-refine-hunk'."
:version "24.3")

4
lisp/vc/ediff-init.el
View file

@ -856,7 +856,7 @@ this variable represents.")
'((((class color) (min-colors 88) (background light))
:background "#ffbbbb")
(((class color) (min-colors 88) (background dark))
:background "#aa2222")
:background "#882222")
(((class color) (min-colors 16))
(:foreground "Navy" :background "sky blue"))
(((class color))
@ -876,7 +876,7 @@ this variable represents.")
'((((class color) (min-colors 88) (background light))
:background "#aaffaa")
(((class color) (min-colors 88) (background dark))
:background "#22aa22")
:background "#228822")
(((class color) (min-colors 16))
(:foreground "Black" :background "cyan"))
(((class color))

4
lisp/vc/smerge-mode.el
View file

@ -126,7 +126,7 @@ Used in `smerge-diff-base-upper' and related functions."
(((class color) (min-colors 88) (background light))
:background "#ffbbbb")
(((class color) (min-colors 88) (background dark))
:background "#aa2222")
:background "#882222")
(t :inverse-video t))
"Face used for removed characters shown by `smerge-refine'."
:version "24.3")
@ -137,7 +137,7 @@ Used in `smerge-diff-base-upper' and related functions."
(((class color) (min-colors 88) (background light))
:background "#aaffaa")
(((class color) (min-colors 88) (background dark))
:background "#22aa22")
:background "#228822")
(t :inverse-video t))
"Face used for added characters shown by `smerge-refine'."
:version "24.3")