This commit is contained in:
Kazu Yamamoto 2014-08-01 16:56:44 +09:00
parent d1daf6def9
commit d136fb4d67

View File

@ -63,7 +63,8 @@
(t cpro)))
(defun ghc-start-process (name buf)
(let ((pro (start-file-process name buf ghc-interactive-command "-b" "\n" "-l")))
(let* ((opts (append '("-b" "\n" "-l") (ghc-make-ghc-options)))
(pro (apply 'start-file-process name buf ghc-interactive-command opts)))
(set-process-filter pro 'ghc-process-filter)
(set-process-sentinel pro 'ghc-process-sentinel)
(set-process-query-on-exit-flag pro nil)