|
|
|
|
@ -147,9 +147,9 @@ |
|
|
|
|
(defun eaf-stop-process () |
|
|
|
|
(interactive) |
|
|
|
|
(if (process-live-p eaf-process) |
|
|
|
|
;; kill all eaf buffers after delete eaf server process. |
|
|
|
|
(progn |
|
|
|
|
;; Delete eaf server process. |
|
|
|
|
(delete-process eaf-process) |
|
|
|
|
(message "EAF process has dead.") |
|
|
|
|
(let ((current-buf (current-buffer)) |
|
|
|
|
(count 0)) |
|
|
|
|
(dolist (buffer (buffer-list)) |
|
|
|
|
@ -159,8 +159,7 @@ |
|
|
|
|
(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."))) |
|
|
|
|
(message "Killed EAF %s buffer%s" count (if (> count 1) "s" "")))))) |
|
|
|
|
|
|
|
|
|
(defun eaf-restart-process () |
|
|
|
|
(interactive) |
|
|
|
|
|