kill buffer hook run only for haskell-mode.

This commit is contained in:
Kazu Yamamoto 2015-09-15 11:32:16 +09:00
parent ad5a343d2e
commit ac2d8ba134

View File

@ -214,11 +214,12 @@
(defun ghc-kill-process ()
(interactive)
(when (eq major-mode 'haskell-mode)
(let* ((name ghc-process-process-name)
(cpro (if name (get-process name))))
(if (not cpro)
(message "No ghc-mod process")
(delete-process cpro)
(message "ghc-mod process was killed"))))
(message "ghc-mod process was killed")))))
(provide 'ghc-process)