branch: externals/elpa
commit 1514e0f4709c915426748ca764900edfb38f8acc
Author: João Távora <joaotav...@gmail.com>
Commit: João Távora <joaotav...@gmail.com>
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)))
