[elpa] externals/company 1887974: Fix search in the first LEN(company-prefix) chars of completions

[ELPA Syncer]

branch: externals/company
commit 1887974e7ad50cb4884fbec27985078bba754b60
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Fix search in the first LEN(company-prefix) chars of completions
    
    Reported in 
https://github.com/company-mode/company-mode/discussions/1211#discussioncomment-1298541.
---
 company.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/company.el b/company.el
index 1fffe96..9704a73 100644
--- a/company.el
+++ b/company.el
@@ -2256,7 +2256,7 @@ each one wraps a part of the input string."
   (let ((re (funcall company-search-regexp-function text))
         (i 0))
     (cl-dolist (line lines)
-      (when (string-match-p re line (length company-prefix))
+      (when (string-match-p re line)
         (cl-return i))
       (cl-incf i))))
 
@@ -3028,7 +3028,7 @@ If SHOW-VERSION is non-nil, show the version in the echo 
area."
     (when (let ((re (funcall company-search-regexp-function
                              company-search-string)))
             (and (not (string= re ""))
-                 (string-match re value (length company-prefix))))
+                 (string-match re value)))
       (pcase-dolist (`(,mbeg . ,mend) (company--search-chunks))
         (let ((beg (+ margin mbeg))
               (end (+ margin mend))