From: Michal Krzywkowski <k.michal@zoho.com>
Date: Mon, 5 Nov 2018 18:42:32 +0000 (+0100)
Subject: * eglot.el (eglot-client-capabilities): mention supported symbolkinds.
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~407
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ea0216c53533b76120574b7892a021b037389cf;p=emacs.git

* eglot.el (eglot-client-capabilities): mention supported symbolkinds.
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 22f509b81b2..0a789702c7d 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -196,6 +196,8 @@ let the buffer grow forever."
   "JSON object to send under `initializationOptions'"
   (:method (_s) nil)) ; blank default
 
+(defvar eglot--symbol-kind-names)
+
 (cl-defgeneric eglot-client-capabilities (server)
   "What the EGLOT LSP client supports for SERVER."
   (:method (_s)
@@ -221,7 +223,11 @@ let the buffer grow forever."
              :signatureHelp      `(:dynamicRegistration :json-false)
              :references         `(:dynamicRegistration :json-false)
              :definition         `(:dynamicRegistration :json-false)
-             :documentSymbol     `(:dynamicRegistration :json-false)
+             :documentSymbol     (list
+                                  :dynamicRegistration :json-false
+                                  :symbolKind `(:valueSet
+                                                [,@(mapcar
+                                                    #'car eglot--symbol-kind-names)]))
              :documentHighlight  `(:dynamicRegistration :json-false)
              :codeAction         (list
                                   :dynamicRegistration :json-false