[elpa] externals/elpa df5d76d 065/139: Reply to client/registerCapability (don't handle it yet)

[João Távora]

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

    Reply to client/registerCapability (don't handle it yet)
    
    * eglot.el (eglot--server-client/registerCapability): New
    function.
---
 eglot.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/eglot.el b/eglot.el
index 332f1fe..d073be2 100644
--- a/eglot.el
+++ b/eglot.el
@@ -962,6 +962,19 @@ running.  INTERACTIVE is t if called interactively."
      (t
       (eglot--message "OK so %s isn't visited" filename)))))
 
+(cl-defun eglot--server-client/registerCapability
+    (proc &key id registrations)
+  "Handle notification client/registerCapability"
+  (mapc (lambda (reg)
+          (apply (cl-function
+                  (lambda (&key _id _method _registerOptions)
+                    ;;; TODO: handle this
+                    ))
+                 reg))
+        registrations)
+  (eglot--reply proc id :error (eglot--obj :code -32601
+                                           :message "sorry :-(")))
+
 (defvar eglot--recent-before-changes nil
   "List of recent changes as collected by `eglot--before-change'.")
 (defvar eglot--recent-after-changes nil