From: João Távora <joaotavora@gmail.com>
Date: Fri, 4 May 2018 12:36:33 +0000 (+0100)
Subject: Reply to client/registercapability (don't handle it yet)
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~643
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20e044b1a1fe1318110f5dec0f633397bd0f51cf;p=emacs.git

Reply to client/registercapability (don't handle it yet)

* eglot.el (eglot--server-client/registerCapability): New
function.
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 332f1fe849e..d073be2603e 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/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