From: João Távora Date: Wed, 2 May 2018 12:33:02 +0000 (+0100) Subject: Change status to error everytime an error is found X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~679 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9bd7605d12c1a842dc6806e4199e64d8e2f89a6a;p=emacs.git 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 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"