When user declines to reconnect, first quit existing server

* eglot.el (eglot): Rework reconnection logic.

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index c5a0c0f0d7a5cd4e32a783544137859afd715d96..3d0c04483440206240affcb2ecb47ff6048e30e2 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -293,13 +293,15 @@ Execute program (or connect to <host>:<port>) "
                   (y-or-n-p "[eglot] Live process found, reconnect instead? "))
              (eglot-reconnect current-process interactive))
             (t
+             (when (process-live-p current-process)
+               (eglot-shutdown current-process 'sync))
              (eglot--connect
               project
               managed-major-mode
               short-name
               command
               (lambda (proc)
-                (eglot--message "Connected! Process `%s' now managing `%s'\
+                (eglot--message "Connected! Process `%s' now managing `%s' \
 buffers in project %s."
                                 proc
                                 managed-major-mode