- (let* ((f (plist-get (nthcdr 4 res) :company-prefix-length))
- (beg (nth 1 res))
- (end (nth 2 res))
- (length (and f (funcall f beg (point))))
- (prefix (buffer-substring-no-properties beg (point))))
+ (let ((length (plist-get (nthcdr 4 res) :company-prefix-length))
+ (prefix (buffer-substring-no-properties (nth 1 res) (point))))