summaryrefslogtreecommitdiff
path: root/lisp/minibuffer.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2019-11-21 17:53:02 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2019-11-21 17:53:02 -0500
commit20b1e959e077492817bea34392ba2dda745c4641 (patch)
tree4175610bbe07e9fde308fbfdc9b651351e81146e /lisp/minibuffer.el
parent81ab458aae931e01a940424eeea55777004f9c55 (diff)
downloademacs-20b1e959e077492817bea34392ba2dda745c4641.tar.gz
* lisp/minibuffer.el (completions-common-part): Make it blue when possible
Diffstat (limited to 'lisp/minibuffer.el')
-rw-r--r--lisp/minibuffer.el4
1 files changed, 3 insertions, 1 deletions
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'.")