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 1bf0d561c351a4d224eec3f8994b5e1f844d84a0..e7fe18ccf4c1693268e74a5d7222e12489b11b4e 100644 (file)
--- 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)))