procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eglot-completion-at-point): Return correct values in :company-kind

Browse source 
* lisp/progmodes/eglot.el (eglot-completion-at-point): Return the
correct values in :company-kind for "EnumMember" and "TypeParameter".
The convention is to use kebab case rather than plain downcasing.
Reported in https://github.com/company-mode/company-mode/issues/1370.
This commit is contained in:
Dmitry Gutov 2023-02-07 00:28:25 +02:00
parent 321cbd9a60
commit 2ac8c4bbd6
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/eglot.el
View file

@ -2873,7 +2873,10 @@ for which LSP on-type-formatting should be requested."
(when-let* ((lsp-item (get-text-property 0 'eglot--lsp-item proxy)) (when-let* ((lsp-item (get-text-property 0 'eglot--lsp-item proxy))
(kind (alist-get (plist-get lsp-item :kind) (kind (alist-get (plist-get lsp-item :kind)
eglot--kind-names))) eglot--kind-names)))
(intern (downcase kind)))) (pcase kind
("EnumMember" 'enum-member)
("TypeParameter" 'type-parameter)
(_ (intern (downcase kind))))))
:company-deprecated :company-deprecated
(lambda (proxy) (lambda (proxy)
(when-let ((lsp-item (get-text-property 0 'eglot--lsp-item proxy))) (when-let ((lsp-item (get-text-property 0 'eglot--lsp-item proxy)))