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

* 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).

3 files changed, 6 insertions, 6 deletions

diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index 2fb552597fd..c6c6233485f 100644
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -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")
 
diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el
index 12b94e81489..7254b32e41e 100644
--- a/lisp/vc/ediff-init.el
+++ b/lisp/vc/ediff-init.el
@@ -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))
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el
index 0a9e07cf78b..173b67e1983 100644
--- a/lisp/vc/smerge-mode.el
+++ b/lisp/vc/smerge-mode.el
@@ -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")