[elpa] externals/corfu 53f8e6b 3/3: corfu-auto: Second try. Support for company-prefix-length (Fix #70)

[ELPA Syncer]

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

    corfu-auto: Second try. Support for company-prefix-length (Fix #70)
---
 corfu.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index 942940e..27adffb 100644
--- a/corfu.el
+++ b/corfu.el
@@ -962,7 +962,8 @@ completion began less than that number of seconds ago."
       ((and `(,fun ,beg ,end ,table . ,plist)
             (guard (integer-or-marker-p beg))
             (guard (<= beg (point) end))
-            (guard (>= (- (point) beg) corfu-auto-prefix)))
+            (let len (or (plist-get plist :company-prefix-length) (- (point) 
beg)))
+            (guard (or (eq len t) (>= len corfu-auto-prefix))))
        (let ((completion-extra-properties plist)
              (completion-in-region-mode-predicate
               (lambda () (eq beg (car-safe (funcall fun))))))