From 7e57536997a9c1d802b6ffd7b8d3569aa06bcfa3 Mon Sep 17 00:00:00 2001
From: Andy Stewart <lazycat.manatee@gmail.com>
Date: Wed, 27 Jun 2018 18:09:16 +0800
Subject: [PATCH] Always clean eaf buffers.

---
 eaf.el | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/eaf.el b/eaf.el
index a0f074f..d9f2d43 100644
--- a/eaf.el
+++ b/eaf.el
@@ -147,20 +147,19 @@
 (defun eaf-stop-process ()
   (interactive)
   (if (process-live-p eaf-process)
-      ;; kill all eaf buffers after delete eaf server process.
-      (progn
-        (delete-process eaf-process)
-        (let ((current-buf (current-buffer))
-              (count 0))
-          (dolist (buffer (buffer-list))
-            (set-buffer buffer)
-            (when (equal major-mode 'eaf-mode)
-              (incf count)
-              (kill-buffer buffer)))
-          ;; Just report to me when eaf buffer exists.
-          (if (> count 1)
-              (message "Killed EAF %s buffer%s" count (if (> count 1) "s" "")))))
-    (message "EAF process has dead.")))
+      ;; Delete eaf server process.
+      (delete-process eaf-process)
+    (message "EAF process has dead.")
+    (let ((current-buf (current-buffer))
+          (count 0))
+      (dolist (buffer (buffer-list))
+        (set-buffer buffer)
+        (when (equal major-mode 'eaf-mode)
+          (incf count)
+          (kill-buffer buffer)))
+      ;; Just report to me when eaf buffer exists.
+      (if (> count 1)
+          (message "Killed EAF %s buffer%s" count (if (> count 1) "s" ""))))))
 
 (defun eaf-restart-process ()
   (interactive)