[elpa] externals/corfu 0d0b2c9fd9: corfu-complete: Correct metadata computation for current field

[ELPA Syncer]

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

    corfu-complete: Correct metadata computation for current field
---
 corfu.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/corfu.el b/corfu.el
index 651e6f5d57..74e0dc783d 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1027,7 +1027,7 @@ If a candidate is selected, insert it."
            (when (and (test-completion newstr table pred)
                       (not (consp (completion-try-completion
                                    newstr table pred newpt
-                                   (completion-metadata newstr table pred)))))
+                                   (completion-metadata (substring newstr 0 
newpt) table pred)))))
              (corfu--done newstr 'finished))))))))
 
 (defun corfu--insert (status)
@@ -1112,8 +1112,7 @@ Quit if no candidate is selected."
   (when completion-in-region-mode (corfu-quit))
   (let* ((pt (max 0 (- (point) beg)))
          (str (buffer-substring-no-properties beg end))
-         (before (substring str 0 pt))
-         (metadata (completion-metadata before table pred))
+         (metadata (completion-metadata (substring str 0 pt) table pred))
          (exit (plist-get completion-extra-properties :exit-function))
          (threshold (completion--cycle-threshold metadata))
          (completion-in-region-mode-predicate