; Refine 'completion-preview-exact' face

* lisp/completion-preview.el (completion-preview-exact): Use
more intense 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 75e878133c752b08e3060213f3ede4ea2791e177..ba81210e36a031fb2c0afa4db2dc089d86949a6a 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")