Feature-gate :tools lsp company-specific hooks

As I’m trying to use [corfu](https://github.com/minad/corfu) for a bit, I found out that this hook prevents lsp-mode from starting if company-mode isn’t used.
This commit is contained in:
Gerry Agbobada 2021-05-01 13:03:07 +02:00 committed by GitHub
parent 8bb54a95f6
commit fda382cc86
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -81,13 +81,14 @@ about it (it will be logged to *Messages* however).")
(lsp--info "Could not guess project root.")))) (lsp--info "Could not guess project root."))))
#'+lsp-optimization-mode) #'+lsp-optimization-mode)
(add-hook! 'lsp-completion-mode-hook (when (featurep! :completion company)
(defun +lsp-init-company-backends-h () (add-hook! 'lsp-completion-mode-hook
(when lsp-completion-mode (defun +lsp-init-company-backends-h ()
(set (make-local-variable 'company-backends) (when lsp-completion-mode
(cons +lsp-company-backends (set (make-local-variable 'company-backends)
(remove +lsp-company-backends (cons +lsp-company-backends
(remq 'company-capf company-backends))))))) (remove +lsp-company-backends
(remq 'company-capf company-backends))))))))
(defvar +lsp--deferred-shutdown-timer nil) (defvar +lsp--deferred-shutdown-timer nil)
(defadvice! +lsp-defer-server-shutdown-a (orig-fn &optional restart) (defadvice! +lsp-defer-server-shutdown-a (orig-fn &optional restart)