From 1d72360e03a219ffeb1799263a640f92c4e0c0c0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sun, 16 Dec 2018 14:22:57 +0000 Subject: [PATCH] Don't make bogus responses to client/(un)registercapability * eglot.el (eglot--register-unregister): Response is void. --- lisp/progmodes/eglot.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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) -- 2.39.2