Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: Zander671:5e54de5f92ac842d9c616d6a8d279bad16081fd8
Branches Tags
Zander671:main
..
compare: Zander671:e7b13a13501f85f51affa4effb24cc4a9d454ece
Branches Tags
Zander671:main

No commits in common. "5e54de5f92ac842d9c616d6a8d279bad16081fd8" and "e7b13a13501f85f51affa4effb24cc4a9d454ece" have entirely different histories.
5e54de5f92 ... e7b13a1350

1 changed files with 0 additions and 12 deletions
Show Stats Expand all files Collapse all files

12
init.el
View File

@ -681,18 +681,6 @@ to `posframe-show' if the display is graphical."
(when (not (get-buffer-window my/-eglot-documentation-buffer nil)) (when (not (get-buffer-window my/-eglot-documentation-buffer nil))
(switch-to-buffer-other-window my/-eglot-documentation-buffer t) (switch-to-buffer-other-window my/-eglot-documentation-buffer t)
(switch-to-buffer-other-window buff t))))))))) (switch-to-buffer-other-window buff t)))))))))
(defun my/-eglot-cleanup-doc-buffer (_server &optional _interactive _timeout
preserve-buffers)
(when (and (not preserve-buffers)
(buffer-live-p my/-eglot-documentation-buffer)
(cl-every (lambda (buffer)
(with-current-buffer buffer
(let ((server (eglot-current-server)))
(or (not (eglot-lsp-server-p server))
(eglot--shutdown-requested server)))))
(buffer-list)))
(kill-buffer my/-eglot-documentation-buffer)))
(advice-add 'eglot-shutdown :after 'my/-eglot-cleanup-doc-buffer)
(defun my/-eglot-setup () (defun my/-eglot-setup ()
"Setup eldoc variables for `eglot-managed-mode-hook'." "Setup eldoc variables for `eglot-managed-mode-hook'."
(setq-local evil-lookup-func #'my/eglot-documentation-at-point) (setq-local evil-lookup-func #'my/eglot-documentation-at-point)