[elpa] externals/corfu e1e3b97: Delete consecutive duplicates

[ELPA Syncer]

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

    Delete consecutive duplicates
---
 corfu.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/corfu.el b/corfu.el
index c6267a9..f5ba9f6 100644
--- a/corfu.el
+++ b/corfu.el
@@ -579,12 +579,11 @@ A scroll bar is displayed from LO to LO+BAR."
     ;; since this breaks the special casing in the 
`completion-file-name-table' for `file-exists-p'
     ;; and `file-directory-p'.
     (when completing-file (setq all (corfu--filter-files all)))
-    (setq all (funcall (or (corfu--sort-function) #'identity) all))
-    (unless (equal field "")
-      (setq all (corfu--move-prefix-candidates-to-front field all))
-      (when (and completing-file (not (string-suffix-p "/" field)))
-        (setq all (corfu--move-to-front (concat field "/") all)))
-      (setq all (corfu--move-to-front field all)))
+    (setq all (delete-consecutive-dups (funcall (or (corfu--sort-function) 
#'identity) all)))
+    (setq all (corfu--move-prefix-candidates-to-front field all))
+    (when (and completing-file (not (string-suffix-p "/" field)))
+      (setq all (corfu--move-to-front (concat field "/") all)))
+    (setq all (corfu--move-to-front field all))
     (list base all (length all) hl corfu--metadata
           ;; Select the prompt when the input is a valid completion
           ;; and if it is not equal to the first candidate.