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 e83562fd201b37f35e4ab44c5f29210f1bdc33ca..ee40329ca1b81768c517f5dcfcdb20e6296a9ba3 100644 (file)
--- 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)