From 6c84a2e8cbb1a1e9881710edc26c86f7947f2dd0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Thu, 3 May 2018 22:44:13 +0100 Subject: [PATCH] Fix a couple of rust-related edge cases * eglot.el (eglot--server-window/progress): Allow other keys. (eglot--server-textDocument/publishDiagnostics): Allow :group in diagnostic spec. --- lisp/progmodes/eglot.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 1bf0d561c35..e7fe18ccf4c 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -843,7 +843,7 @@ running. INTERACTIVE is t if called interactively." (line-beginning-position)))) (point)))) (cl-loop for diag-spec across diagnostics - collect (cl-destructuring-bind (&key range severity + collect (cl-destructuring-bind (&key range severity _group _code _source message) diag-spec (cl-destructuring-bind (&key start end) @@ -1002,7 +1002,7 @@ Calls REPORT-FN maybe if server publishes diagnostics in time." ;;; Rust-specific ;;; (cl-defun eglot--server-window/progress - (process &key id done title ) + (process &key id done title &allow-other-keys) "Handle notification window/progress" (setf (eglot--spinner process) (list id title done))) -- 2.39.2