Don't use fontify-as-mode for :t by default (haskell#371)

u-combinator · Nov 11, 2014 · af61953 · af61953
1 parent 209c28c
commit af61953
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/haskell-interactive-mode.el b/haskell-interactive-mode.el
@@ -402,13 +402,9 @@ be nil.")
                     (cl-caddr state) response))
            (haskell-interactive-mode-handle-h (point-min))
            (buffer-string))))
-    (cond
-     (haskell-interactive-mode-eval-mode
-      (unless (haskell-process-sent-stdin-p (cadr state))
-        (haskell-interactive-mode-eval-as-mode (car state) response)))
-     ((haskell-interactive-mode-line-is-query (elt state 2))
-      (let ((haskell-interactive-mode-eval-mode 'haskell-mode))
-        (haskell-interactive-mode-eval-as-mode (car state) response)))))
+    (when haskell-interactive-mode-eval-mode
+     (unless (haskell-process-sent-stdin-p (cadr state))
+       (haskell-interactive-mode-eval-as-mode (car state) response))))
   (haskell-interactive-mode-prompt (car state)))
 
 (defun haskell-interactive-mode-handle-h (&optional bound)