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

[Stefan Monnier]

branch: master
commit 20b1e959e077492817bea34392ba2dda745c4641
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/minibuffer.el (completions-common-part): Make it blue when possible
---
 etc/NEWS           | 2 ++
 lisp/minibuffer.el | 4 +++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/etc/NEWS b/etc/NEWS
index 7a51106..b92fdeb 100644
--- 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 ee3d009..399c4fe 100644
--- 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'.")