From 20b1e959e077492817bea34392ba2dda745c4641 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 21 Nov 2019 17:53:02 -0500 Subject: [PATCH] * 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 7a51106add8..b92fdeb6757 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 ee3d0095a9a..399c4fe8bb2 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'.") -- 2.39.5