[elpa] externals/vertico aec8c4de90 1/2: vertico-flat: Fix only-match display

[ELPA Syncer]

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

    vertico-flat: Fix only-match display
---
 extensions/vertico-flat.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index 04ea9a9e3f..6f310abc64 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -73,11 +73,12 @@
   (overlay-put
    vertico--candidates-ov 'after-string
    (concat #(" " 0 1 (cursor t))
-           (pcase candidates
-             ('nil (plist-get vertico-flat-format :no-match))
-             ((and `(,cand) (let fmt (plist-get vertico-flat-format 
:only-match)) (guard fmt))
-              (format fmt (substring-no-properties cand)))
-             (_ (concat (plist-get vertico-flat-format :left)
+           (cond
+            ((and (not candidates) (plist-get vertico-flat-format :no-match)))
+            ((and (= vertico--total 1)
+                  (when-let (fmt (plist-get vertico-flat-format :only-match))
+                    (format fmt (substring-no-properties (car candidates))))))
+             (t (concat (plist-get vertico-flat-format :left)
                         (string-join candidates (plist-get vertico-flat-format 
:separator))
                         (plist-get vertico-flat-format :right)))))))