[elpa] externals/corfu 1e966ab 3/3: Fix extraction of base from returned completions (Fix #8)

[Protesilaos Stavrou]

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

    Fix extraction of base from returned completions (Fix #8)
---
 corfu.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index 7b04df3..c9debf6 100644
--- a/corfu.el
+++ b/corfu.el
@@ -306,7 +306,7 @@ If `line-spacing/=nil' or in text-mode, the background 
color is used instead.")
                                            pred)
                                          pt metadata))
          (all (car all-hl))
-         (base (if-let (last (last all)) (prog1 (cdr last) (setcdr last nil)) 
0)))
+         (base (or (when-let (z (last all)) (prog1 (cdr z) (setcdr z nil))) 
0)))
     (setq all (if-let (sort (corfu--metadata-get metadata 
'display-sort-function))
                   (funcall sort all)
                 (sort all #'corfu--sort-predicate)))