From be2b3f0ea74a18b42b6973e76f4c3b3e44405395 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 4 Aug 2015 13:46:38 +0900
Subject: [PATCH] Revert "Fix typo to set process running status"

This reverts commit b52c0a5d767282369f2748c5ec070b802ed8e23c.
---
 elisp/ghc-process.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el
index 7ecfa34..0519549 100644
--- a/elisp/ghc-process.el
+++ b/elisp/ghc-process.el
@@ -34,7 +34,7 @@
   (if ghc-process-running
     (error "ghc process already running")
     (progn
-      (setq ghc-process-running t)
+      (when ghc-process-running t)
       (if hook1 (funcall hook1))
       (let* ((cbuf (current-buffer))
              (name ghc-process-process-name)