Fix typo to set process running status

This commit is contained in:
Iku Iwasa 2015-05-22 22:41:50 +09:00 committed by Daniel Gröber
parent a1f6bf6582
commit b52c0a5d76

View File

@ -34,7 +34,7 @@
(if ghc-process-running (if ghc-process-running
(error "ghc process already running") (error "ghc process already running")
(progn (progn
(when ghc-process-running t) (setq ghc-process-running t)
(if hook1 (funcall hook1)) (if hook1 (funcall hook1))
(let* ((cbuf (current-buffer)) (let* ((cbuf (current-buffer))
(name ghc-process-process-name) (name ghc-process-process-name)