Always clean eaf buffers.

master
Andy Stewart 8 years ago
parent f5d7807350
commit 7e57536997
  1. 27
      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)

Loading…
Cancel
Save