From 9bd7605d12c1a842dc6806e4199e64d8e2f89a6a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Wed, 2 May 2018 13:33:02 +0100 Subject: [PATCH] Change status to error everytime an error is found * eglot.el (eglot--process-receive): Also set error status. (eglot--request): Fix a compilation warning. --- lisp/progmodes/eglot.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 1f2737effd6..457f3168938 100644 --- 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" -- 2.39.2