From 57e2fe165131fa4c0faa89c57785d3c75c640fc2 Mon Sep 17 00:00:00 2001 From: Andy Stewart Date: Tue, 17 Jul 2018 21:16:23 +0800 Subject: [PATCH] Kill process after kill buffer, make application can save session data. --- eaf.el | 32 ++++++++++++++++++-------------- 1 file changed, 18 insertions(+), 14 deletions(-) diff --git a/eaf.el b/eaf.el index 3078cc9..8adeccc 100644 --- a/eaf.el +++ b/eaf.el @@ -153,10 +153,7 @@ (defun eaf-stop-process () (interactive) - (if (process-live-p eaf-process) - ;; Delete eaf server process. - (delete-process eaf-process) - (message "EAF process has dead.")) + ;; Kill eaf buffers. (let ((current-buf (current-buffer)) (count 0)) (dolist (buffer (buffer-list)) @@ -166,16 +163,23 @@ (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" ""))) - ;; Clean cache url and app name, avoid next start process to open buffer. - (setq eaf-first-start-url nil) - (setq eaf-first-start-app-name nil) - ;; Clean `eaf-org-file-list' - (dolist (org-file-name eaf-org-file-list) - (eaf-delete-org-preview-file org-file-name)) - (setq eaf-org-file-list nil) - (setq eaf-org-killed-file-list nil) - )) + (message "Killed EAF %s buffer%s" count (if (> count 1) "s" "")))) + + ;; Clean cache url and app name, avoid next start process to open buffer. + (setq eaf-first-start-url nil) + (setq eaf-first-start-app-name nil) + + ;; Clean `eaf-org-file-list' and `eaf-org-killed-file-list'. + (dolist (org-file-name eaf-org-file-list) + (eaf-delete-org-preview-file org-file-name)) + (setq eaf-org-file-list nil) + (setq eaf-org-killed-file-list nil) + + ;; Kill process after kill buffer, make application can save session data. + (if (process-live-p eaf-process) + ;; Delete eaf server process. + (delete-process eaf-process) + (message "EAF process has dead."))) (defun eaf-restart-process () (interactive)