[elpa] externals/corfu e3f99f0 1/3: corfu-auto: Add support for company-prefix-length (Fix #70)

[ELPA Syncer]

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

    corfu-auto: Add 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..2c089be 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) 
corfu-auto-prefix))
+            (guard (or (eq len t) (>= (- (point) beg) len))))
        (let ((completion-extra-properties plist)
              (completion-in-region-mode-predicate
               (lambda () (eq beg (car-safe (funcall fun))))))