Minor cleanup

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 5699775a2bbebc1c89af89322bf0068863fc0688..479e87ae565a0ae02985bc659083d5d9dbc6ba18 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -117,6 +117,7 @@
     (let ((current-process (eglot--current-process)))
       (when (and current-process
                  (process-live-p current-process))
+        (eglot--message "Asking current process to terminate first")
         (eglot-quit-server current-process 'sync)))
     (let* ((short-name (file-name-base
                         (directory-file-name
@@ -148,7 +149,6 @@
                (format "\n-----------------------------------\n"))))
           (eglot--protocol-initialize proc interactive))))))
 
-
 (defun eglot--process-sentinel (process change)
   (with-current-buffer (process-buffer process)
     (eglot--debug "Process state changed to %s" change)
@@ -353,8 +353,7 @@
 
 \f
 ;;; Requests
-;;; 
-
+;;;
 (defun eglot--protocol-initialize (process interactive)
   (eglot--request
    process
@@ -445,8 +444,6 @@
 \f
 ;;; Mode line
 ;;;
-
-
 (defface eglot-mode-line
   '((t (:inherit font-lock-constant-face :weight bold)))
   "Face for package-name in EGLOT's mode line."