* lisp/minibuffer.el (completions-common-part): Make it blue when possible

diff --git a/etc/NEWS b/etc/NEWS
index 7a51106add8b04246767acd8b58b0a5cc0e40b15..b92fdeb67578e805f18eaf44a426679e0235c9d2 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -409,6 +409,8 @@ matches strings where the pattern appears as a subsequence.  Put
 simply, makes "foo" complete to both "barfoo" and "frodo".  Add 'flex'
 to 'completion-styles' or 'completion-category-overrides' to use it.
 
+** The 'completion-common-part' face is now visible by default.
+
 +++
 ** New face attribute ':extend' to control face extension at EOL.
 The new face attribute ':extend' controls whether to use the face for

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index ee3d0095a9a74621bea8239f98346f30ad843533..399c4fe8bb204cf965fab29b45fed402016c670f 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1692,7 +1692,9 @@ See also `display-completion-list'.")
   "Face for the first character after point in completions.
 See also the face `completions-common-part'.")
 
-(defface completions-common-part '((t nil))
+(defface completions-common-part
+  '((((class color) (min-colors 16) (background light)) :foreground "blue3")
+    (((class color) (min-colors 16) (background dark)) :foreground "lightblue"))
   "Face for the parts of completions which matched the pattern.
 See also the face `completions-first-difference'.")