Accept deprecated field in symbolinformation

* eglot.el (xref-backend-identifier-completion-table)
(eglot-imenu): Accept and ignore "deprecated"

GitHub-reference: fix https://github.com/joaotavora/eglot/issues/138

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 3d77a4faf4aa76b0db91ac250fa28f0cc4949eb5..297d6f4f0ea499271e36c1cf400aeef5a2b0c609 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1348,7 +1348,7 @@ DUMMY is ignored."
          (setq eglot--xref-known-symbols
                (mapcar
                 (jsonrpc-lambda
-                    (&key name kind location containerName)
+                    (&key name kind location containerName _deprecated)
                   (propertize name
                               :textDocumentPositionParams
                               (list :textDocument text-id
@@ -1656,7 +1656,7 @@ If SKIP-SIGNATURE, don't try to send textDocument/signatureHelp."
       (let ((entries
              (mapcar
               (jsonrpc-lambda
-                  (&key name kind location _containerName)
+                  (&key name kind location _containerName _deprecated)
                 (cons (propertize name :kind (cdr (assoc kind eglot--symbol-kind-names)))
                       (eglot--lsp-position-to-point
                        (plist-get (plist-get location :range) :start))))