[elpa] externals/eglot 1514e0f 052/139: Fix a couple of Rust-related edge cases

[João Távora]

branch: externals/eglot
commit 1514e0f4709c915426748ca764900edfb38f8acc
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    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.
---
 eglot.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/eglot.el b/eglot.el
index 1bf0d56..e7fe18c 100644
--- a/eglot.el
+++ b/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)))