emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Eglot: respect e-stay-out-of when turning off (bug#81593)

Browse source 
* lisp/progmodes/eglot.el (eglot--managed-mode): Respect
`eglot-stay-out-of' during teardown/reconnect.
This commit is contained in:
Aaron L. Zeng 2026-08-10 17:43:21 -04:00 committed by João Távora
parent 7d2988e7e4
commit 65efc35a91
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/progmodes/eglot.el
View file

@ -2478,21 +2478,24 @@ the previous reports for TOKEN.")
#'eglot--after-set-visited-file-name-hook t)
(remove-hook 'before-save-hook #'eglot--signal-textDocument/willSave t)
(remove-hook 'after-save-hook #'eglot--signal-textDocument/didSave t)
(remove-hook 'xref-backend-functions #'eglot-xref-backend t)
(unless (eglot--stay-out-of-p 'xref)
(remove-hook 'xref-backend-functions #'eglot-xref-backend t))
(remove-hook 'completion-at-point-functions #'eglot-completion-at-point t)
(remove-hook 'completion-in-region-mode-hook #'eglot--capf-session-flush t)
(remove-hook 'company-after-completion-hook #'eglot--capf-session-flush t)
(remove-hook 'change-major-mode-hook #'eglot--managed-mode-off t)
(remove-hook 'post-self-insert-hook #'eglot--post-self-insert-hook t)
(remove-hook 'pre-command-hook #'eglot--pre-command-hook t)
(dolist (f (list #'eglot-hover-eldoc-function
#'eglot-signature-eldoc-function
#'eglot-highlight-eldoc-function
#'eglot-code-action-suggestion))
(remove-hook 'eldoc-documentation-functions f t))
(unless (eglot--stay-out-of-p 'eldoc)
(dolist (f (list #'eglot-hover-eldoc-function
#'eglot-signature-eldoc-function
#'eglot-highlight-eldoc-function
#'eglot-code-action-suggestion))
(remove-hook 'eldoc-documentation-functions f t)))
(cl-loop for (var . saved-binding) in eglot--saved-bindings
do (set (make-local-variable var) saved-binding))
(remove-function (local 'imenu-create-index-function) #'eglot-imenu)
(unless (eglot--stay-out-of-p 'imenu)
(remove-function (local 'imenu-create-index-function) #'eglot-imenu))
(eglot--flymake-reset)
(setq eglot--flymake-report-fn nil)
(run-hooks 'eglot-managed-mode-hook)