From: João Távora <joaotavora@gmail.com>
Date: Sun, 16 Dec 2018 14:22:57 +0000 (+0000)
Subject: Don't make bogus responses to client/(un)registercapability
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d72360e03a219ffeb1799263a640f92c4e0c0c0;p=emacs.git

Don't make bogus responses to client/(un)registercapability

* eglot.el (eglot--register-unregister): Response is void.
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index e83562fd201..ee40329ca1b 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1417,11 +1417,9 @@ COMMAND is a symbol naming the command."
 THINGS are either registrations or unregisterations."
   (cl-loop
    for thing in (cl-coerce things 'list)
-   collect (eglot--dbind ((Registration) id method registerOptions) thing
-             (apply (intern (format "eglot--%s-%s" how method))
-                    server :id id registerOptions))
-   into results
-   finally return `(:ok ,@results)))
+   do (eglot--dbind ((Registration) id method registerOptions) thing
+        (apply (intern (format "eglot--%s-%s" how method))
+               server :id id registerOptions))))
 
 (cl-defmethod eglot-handle-request
   (server (_method (eql client/registerCapability)) &key registrations)