From e3f99f0066df68fb6598589473555c5634925d0c Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Mon, 8 Nov 2021 17:15:35 +0100 Subject: 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)))))) -- cgit v1.0