[elpa] externals/company 811beea: company-preview-show-at-point: Better prefix chopping with fuzzy matchers

[ELPA Syncer]

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

    company-preview-show-at-point: Better prefix chopping with fuzzy matchers
    
    Fixes #1241
---
 company.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/company.el b/company.el
index 5044a55..f9e7194 100644
--- a/company.el
+++ b/company.el
@@ -3648,7 +3648,9 @@ Delay is determined by `company-tooltip-idle-delay'."
            (add-face-text-property mbeg mend 'company-preview-search
                                    nil completion)))
 
-    (setq completion (if company-common
+    (setq completion (if (string-prefix-p company-prefix completion
+                                          (eq (company-call-backend 
'ignore-case)
+                                              'keep-prefix))
                          (company-strip-prefix completion)
                        completion))