[elpa] externals/corfu 1126bc66a5 3/3: corfu--in-region: Expand first before computing candidates for cycling

[ELPA Syncer]

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

    corfu--in-region: Expand first before computing candidates for cycling
---
 corfu.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/corfu.el b/corfu.el
index 16aeb376aa..8f40a7fd4a 100644
--- a/corfu.el
+++ b/corfu.el
@@ -854,16 +854,16 @@ or if the last invoked command is not listed in
           (when exit (funcall exit str 'finished))
           t)
       (`(,newstr . ,newpt)
-       (let* ((state (corfu--recompute str pt table pred))
+       (unless (markerp beg) (setq beg (copy-marker beg)))
+       (setq end (copy-marker end t)
+             completion-in-region--data (list beg end table pred))
+       (unless (equal str newstr)
+         (corfu--replace beg end newstr))
+       (goto-char (+ beg newpt))
+       (let* ((state (corfu--recompute newstr newpt table pred))
               (base (alist-get 'corfu--base state))
               (total (alist-get 'corfu--total state))
               (candidates (alist-get 'corfu--candidates state)))
-         (unless (markerp beg) (setq beg (copy-marker beg)))
-         (setq end (copy-marker end t)
-               completion-in-region--data (list beg end table pred))
-         (unless (equal str newstr)
-           (corfu--replace beg end newstr))
-         (goto-char (+ beg newpt))
          (if (= total 1)
              ;; If completion is finished and cannot be further completed,
              ;; return 'finished. Otherwise setup the Corfu popup.