[elpa] externals/eglot d65d139 15/69: Don't teardown company if started via trigger chars

[João Távora]

branch: externals/eglot
commit d65d13944d809cb83ea940b2d2a2760ebda1d493
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Don't teardown company if started via trigger chars
    
    Reported by zhanghj in 
https://github.com/company-mode/company-mode/issues/866
    
    * eglot.el (eglot-completion-at-point): More carefully calculate
    :company-prefix-length
---
 eglot.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/eglot.el b/eglot.el
index 2d1c367..a4b7f8f 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1911,9 +1911,12 @@ is not active."
                (insert formatted)
                (current-buffer)))))
        :company-prefix-length
-       (cl-some #'looking-back
-                (mapcar #'regexp-quote
-                        (plist-get completion-capability :triggerCharacters)))
+       (save-excursion
+         (when (car bounds) (goto-char (car bounds)))
+         (looking-back
+          (regexp-opt
+           (cl-coerce (cl-getf completion-capability :triggerCharacters) 
'list))
+          (line-beginning-position)))
        :exit-function
        (lambda (comp _status)
          (let ((comp (if (get-text-property 0 'eglot--lsp-completion comp)