Change status to error everytime an error is found

* eglot.el (eglot--process-receive): Also set error status.
(eglot--request): Fix a compilation warning.

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 1f2737effd6f9b0428e422661e5b2c8d012ed280..457f3168938f8fa7d1434455a4b47203e2643062 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -317,6 +317,8 @@ identifier.  ERROR is non-nil if this is an error."
                       message
                       response-id
                       err)
+    (when err
+      (setf (eglot--status proc) '("error" t)))
     (cond ((and response-id
                 (not continuations))
            (eglot--warn "Ooops no continuation for id %s" response-id))
@@ -384,7 +386,7 @@ identifier.  ERROR is non-nil if this is an error."
          (error-fn
           (or error-fn
               (cl-function
-               (lambda (&key data code message &allow-other-keys)
+               (lambda (&key code message &allow-other-keys)
                  (setf (eglot--status process) '("error" t))
                  (eglot--warn
                   "(request) Request id=%s errored with code=%s: %s"