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

eglot-reconnect: Re-fetch the current project

Browse source 
* lisp/progmodes/eglot.el (eglot-reconnect): Retrieve the current
project just in case something changed (bug#70724).
This commit is contained in:
Dmitry Gutov 2024-06-06 23:26:25 +03:00
parent 91f51f5ac5
commit b571c6571c
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/eglot.el
View file

@ -1419,11 +1419,15 @@ INTERACTIVE is t if called interactively."
(interactive (list (eglot--current-server-or-lose) t))
(when (jsonrpc-running-p server)
(ignore-errors (eglot-shutdown server interactive nil 'preserve-buffers)))
(eglot--connect (eglot--major-modes server)
(eglot--project server)
(eieio-object-class-name server)
(eglot--saved-initargs server)
(eglot--language-ids server))
(let* ((default-directory (project-root (eglot--project server)))
(project (eglot--current-project)))
(if (not project)
(eglot--error "Project in `%s' is gone!" default-directory)
(eglot--connect (eglot--major-modes server)
project
(eieio-object-class-name server)
(eglot--saved-initargs server)
(eglot--language-ids server))))
(eglot--message "Reconnected!"))
(defvar eglot--managed-mode) ; forward decl