[elpa] externals/corfu 9249404: Add corfu-annotations face

[ELPA Syncer]

branch: externals/corfu
commit 9249404cdc83fe4a827d0ba909de263e3f860577
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add corfu-annotations face
---
 corfu.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/corfu.el b/corfu.el
index 18aa287..d13e682 100644
--- a/corfu.el
+++ b/corfu.el
@@ -148,7 +148,11 @@ completion began less than that number of seconds ago."
 
 (defface corfu-echo
   '((t :inherit completions-annotations))
-  "Face used to for echo area messages.")
+  "Face used for echo area messages.")
+
+(defface corfu-annotations
+  '((t :inherit completions-annotations))
+  "Face used for annotations.")
 
 (defvar corfu-map
   (let ((map (make-sparse-keymap)))
@@ -572,10 +576,11 @@ completion began less than that number of seconds ago."
                   (let ((suffix (or (funcall ann cand) "")))
                     (list cand ""
                           ;; The default completion UI adds the 
`completions-annotations' face
-                          ;; if no other faces are present.
+                          ;; if no other faces are present. We use a custom 
`corfu-annotations'
+                          ;; face to allow further styling which fits better 
for popups.
                           (if (text-property-not-all 0 (length suffix) 'face 
nil suffix)
                               suffix
-                            (propertize suffix 'face 
'completions-annotations)))))
+                            (propertize suffix 'face 'corfu-annotations)))))
                 candidates)
       candidates)))