branch: externals/eglot
commit 923cbbe4d89ad26ee9dc86fe09b407f8267f3916
Author: João Távora <[email protected]>
Commit: João Távora <[email protected]>
Don't make bogus responses to client/(Un)RegisterCapability
* eglot.el (eglot--register-unregister): Response is void.
---
eglot.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/eglot.el b/eglot.el
index e83562f..ee40329 100644
--- a/eglot.el
+++ b/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)
