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

Eglot: allow skipping compile-time warnings about LSP interfaces

Browse source 
* lisp/progmodes/eglot.el (eglot-strict-mode): Add 'no-unknown-interfaces'.
(eglot--check-object): Honour new eglot-strict-mode value.
This commit is contained in:
João Távora 2022-12-11 23:16:58 +00:00
parent 04b7e01885
commit d3669cfe15
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/eglot.el
View file

@ -499,7 +499,7 @@ Here's what an element of this alist might look like:
;; disallow-non-standard-keys ;; disallow-non-standard-keys
;; enforce-required-keys ;; enforce-required-keys
;; enforce-optional-keys ;; enforce-optional-keys
) no-unknown-interfaces)
"How strictly to check LSP interfaces at compile- and run-time. "How strictly to check LSP interfaces at compile- and run-time.
Value is a list of symbols (if the list is empty, no checks are Value is a list of symbols (if the list is empty, no checks are
@ -520,7 +520,10 @@ happens at run-time. At compile-time, a warning is raised if a
destructuring spec doesn't use all optional fields. destructuring spec doesn't use all optional fields.
If the symbol `disallow-unknown-methods' is present, Eglot warns If the symbol `disallow-unknown-methods' is present, Eglot warns
on unknown notifications and errors on unknown requests.")) on unknown notifications and errors on unknown requests.
If the symbol `no-unknown-interfaces' is present, Eglot warns at
compile time if an undeclared LSP interface is used."))
(cl-defun eglot--check-object (interface-name (cl-defun eglot--check-object (interface-name
object object
@ -594,7 +597,7 @@ on unknown notifications and errors on unknown requests."))
(when missing-out (byte-compile-warn (when missing-out (byte-compile-warn
"Destructuring for %s is missing out on %s" "Destructuring for %s is missing out on %s"
interface-name missing-out)))) interface-name missing-out))))
(t ((memq 'no-unknown-interfaces eglot-strict-mode)
(byte-compile-warn "Unknown LSP interface %s" interface-name)))))) (byte-compile-warn "Unknown LSP interface %s" interface-name))))))
(cl-defmacro eglot--dbind (vars object &body body) (cl-defmacro eglot--dbind (vars object &body body)