[elpa] externals/corfu f8d337f105: Minor cleanup

[ELPA Syncer]

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

    Minor cleanup
---
 corfu.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/corfu.el b/corfu.el
index 66ad2274da..ad90667aad 100644
--- a/corfu.el
+++ b/corfu.el
@@ -649,13 +649,12 @@ there hasn't been any input, then quit."
                            (plist-get corfu--extra :annotation-function)))
               (cl-loop for cand in cands collect
                        (let ((suffix (or (funcall ann cand) "")))
-                         (list cand ""
-                               ;; The default completion UI adds the 
`completions-annotations' face
-                               ;; 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 
'corfu-annotations)))))
+                         ;; The default completion UI adds the 
`completions-annotations' face
+                         ;; if no other faces are present. We use a custom 
`corfu-annotations'
+                         ;; face to allow further styling which fits better 
for popups.
+                         (unless (text-property-not-all 0 (length suffix) 
'face nil suffix)
+                           (setq suffix (propertize suffix 'face 
'corfu-annotations)))
+                         (list cand "" suffix)))
             (cl-loop for cand in cands collect (list cand "" "")))))
   (let* ((dep (plist-get corfu--extra :company-deprecated))
          (completion-extra-properties corfu--extra)