[elpa] externals/corfu 5164177 2/2: Refine the corfu-complete criterion

[ELPA Syncer]

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

    Refine the corfu-complete criterion
---
 corfu.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index 7364887..5acfa03 100644
--- a/corfu.el
+++ b/corfu.el
@@ -813,15 +813,16 @@ completion began less than that number of seconds ago."
           ((and `(,newstr . ,newpt) (guard (not (equal str newstr))))
            (completion--replace beg end newstr)
            (goto-char (+ beg newpt)))
-          ;; When the last command was `corfu-complete' and we didn't make 
progress,
-          ;; insert the first candidate.
-          ((guard (and (eq last-command #'corfu-complete) (> corfu--total 0)))
+          ;; If we didn't make progress, the last command was `corfu-complete'
+          ;; and we are not at completion boundary, continue with the first 
candidate.
+          ((guard (and (eq last-command #'corfu-complete)
+                       (> (length str) corfu--base)
+                       (> corfu--total 0)))
            (completion--replace beg end
                                 (concat (substring str 0 corfu--base)
                                         (substring-no-properties
                                          (car corfu--candidates))))))))))
 
-
 (defun corfu--insert (status)
   "Insert current candidate, exit with STATUS if non-nil."
   (pcase-let* ((`(,beg ,end ,table ,pred) completion-in-region--data)