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

Eglot: cleanup whitespace and indentation

Browse source 
Co-authored-by: João Távora <joaotavora@gmail.com>

* lisp/progmodes/eglot: Misc whitespace fixes.
This commit is contained in:
dannyfreeman 2022-12-09 11:40:53 +00:00 • committed by João Távora
parent 465a9e78b9
commit 0cfeb1c2bc
1 changed files with 42 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/eglot.el
View file

@ -541,7 +541,7 @@ on unknown notifications and errors on unknown requests."))
for type = (or (cdr (assoc k types)) t) ;; FIXME: enforce nil type? for type = (or (cdr (assoc k types)) t) ;; FIXME: enforce nil type?
unless (cl-typep v type) unless (cl-typep v type)
do (eglot--error "A `%s' must have a %s as %s, but has %s" do (eglot--error "A `%s' must have a %s as %s, but has %s"
interface-name ))) interface-name)))
t)) t))
(eval-and-compile (eval-and-compile
@ -1988,7 +1988,7 @@ still unanswered LSP requests to the server\n"))))))))
(defalias 'eglot--diag-data 'flymake-diagnostic-data) (defalias 'eglot--diag-data 'flymake-diagnostic-data)
(cl-loop for i from 1 (cl-loop for i from 1
for type in '(eglot-note eglot-warning eglot-error ) for type in '(eglot-note eglot-warning eglot-error)
do (put type 'flymake-overlay-control do (put type 'flymake-overlay-control
`((mouse-face . highlight) `((mouse-face . highlight)
(priority . ,(+ 50 i)) (priority . ,(+ 50 i))
@ -2636,7 +2636,7 @@ If BUFFER, switch to it before."
uri range)))))) uri range))))))
(if (vectorp response) response (and response (list response))))))) (if (vectorp response) response (and response (list response)))))))
(cl-defun eglot--lsp-xref-helper (method &key extra-params capability ) (cl-defun eglot--lsp-xref-helper (method &key extra-params capability)
"Helper for `eglot-find-declaration' & friends." "Helper for `eglot-find-declaration' & friends."
(let ((eglot--lsp-xref-refs (eglot--lsp-xrefs-for-method (let ((eglot--lsp-xref-refs (eglot--lsp-xrefs-for-method
method method