; Refine 'completion-preview-exact' face

* lisp/completion-preview.el (completion-preview-exact): Use
different underline color to further distinguish this face from
'completion-preview-common', and improve legibility with dark
background color.

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index 1f9ba2c3d7aea28de25b2a13139aba6a88f57f44..17d9ca938a8e245b1e8b23dca4347a945448cc6c 100644 (file)
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -129,7 +129,7 @@ If this option is nil, these commands do not display any message."
 
 (defface completion-preview-exact
   ;; An exact match is also the longest common prefix of all matches.
-  '((t :underline "gray25" :inherit completion-preview-common))
+  '((t :underline "#00aa00" :inherit completion-preview-common))
   "Face for matches in the completion preview overlay."
   :version "30.1")