nicer messages.

This commit is contained in:
Kazu Yamamoto 2015-09-10 13:07:34 +09:00
parent 983059101c
commit 935c51eb1c

View File

@ -215,8 +215,8 @@
(let* ((name ghc-process-process-name) (let* ((name ghc-process-process-name)
(cpro (if name (get-process name)))) (cpro (if name (get-process name))))
(if (not cpro) (if (not cpro)
(message "No process") (message "No ghc-mod process")
(delete-process cpro) (delete-process cpro)
(message "A process was killed")))) (message "ghc-mod process was killed"))))
(provide 'ghc-process) (provide 'ghc-process)