[elpa] externals/eglot 40f151b 51/62: Close #80: Consider :triggerCharacters in company completion

[Stefan Monnier]

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

    Close #80: Consider :triggerCharacters in company completion
    
    * eglot.el (eglot-completion-at-point): Take advantage of
    :company-prefix-length.
---
 eglot.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/eglot.el b/eglot.el
index 3bd342d..4f72644 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1384,8 +1384,9 @@ is not active."
 (defun eglot-completion-at-point ()
   "EGLOT's `completion-at-point' function."
   (let ((bounds (bounds-of-thing-at-point 'symbol))
-        (server (eglot--current-server-or-lose)))
-    (when (eglot--server-capable :completionProvider)
+        (server (eglot--current-server-or-lose))
+        (completion-capability (eglot--server-capable :completionProvider)))
+    (when completion-capability
       (list
        (or (car bounds) (point))
        (or (cdr bounds) (point))
@@ -1451,6 +1452,10 @@ is not active."
                (erase-buffer)
                (insert (eglot--format-markup documentation))
                (current-buffer)))))
+       :company-prefix-length
+       (cl-some #'looking-back
+                (mapcar #'regexp-quote
+                        (plist-get completion-capability :triggerCharacters)))
        :exit-function (lambda (obj _status)
                         (cl-destructuring-bind (&key insertTextFormat
                                                      insertText