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)