From: João Távora <joaotavora@gmail.com>
Date: Wed, 16 Aug 2017 12:02:05 +0000 (+0100)
Subject: Minor cleanup
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~697
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b864866dac26a959d3f7fabf7eefb7edc03a18ff;p=emacs.git

Minor cleanup
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 5699775a2bb..479e87ae565 100644
--- 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 @@
 
 
 ;;; Requests
-;;; 
-
+;;;
 (defun eglot--protocol-initialize (process interactive)
   (eglot--request
    process
@@ -445,8 +444,6 @@
 
 ;;; Mode line
 ;;;
-
-
 (defface eglot-mode-line
   '((t (:inherit font-lock-constant-face :weight bold)))
   "Face for package-name in EGLOT's mode line."