From: João Távora <joaotavora@gmail.com>
Date: Thu, 3 May 2018 21:44:13 +0000 (+0100)
Subject: Fix a couple of rust-related edge cases
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~655
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c84a2e8cbb1a1e9881710edc26c86f7947f2dd0;p=emacs.git

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.
---

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)))