Update face configs

emacs.el

@@ -2932,8 +2932,16 @@ Any output will be written to current buffer."
 ;;;; Make the mark visible, and the visibility toggleable. ('mmv' means 'make
 ;;;; mark visible'.) By Patrick Gundlach, Teemu Leisti, and Stefan.
 
+(defvar mmv-face-foreground
+  (face-foreground 'highlight)
+  "Foreground color for `mmv-face'.")
+
+(defvar mmv-face-background
+  (face-background 'highlight)
+  "Gackground color for `mmv-face'.")
+
 (defface mmv-face
-  '((t :background "maroon2" :foreground "white"))
+  `((t :background ,mmv-face-background :foreground ,mmv-face-foreground))
   "Face used for showing the mark's position.")
 
 (defvar-local mmv-mark-overlay nil
@@ -2971,7 +2979,7 @@ Any output will be written to current buffer."
   (interactive)
   (setq mmv-is-mark-visible (not mmv-is-mark-visible))
   (if mmv-is-mark-visible
-      (set-face-attribute 'mmv-face nil :background "maroon2" :foreground "white")
+      (set-face-attribute 'mmv-face nil :background mmv-face-background :foreground mmv-face-foreground)
     (set-face-attribute 'mmv-face nil :background 'unspecified :foreground 'unspecified))
   (mmv-draw-mark))