From 138c711dc1ccd6e056255fb821a709f612ece2c9 Mon Sep 17 00:00:00 2001 From: Rob Stewart Date: Sat, 10 Oct 2015 22:47:04 +0100 Subject: [PATCH] Adds ghc-report-errors to turn off *GHC Error* buffer when nil ghc-mod now writes GHC errors to a new *GHC Error* buffer only if report-ghc-errors has the value `t`. If a user wants to silence this buffer, they should evaluate the following s-expression. (setq ghc-report-errors nil) Fixes kazu-yamamoto/ghc-mod#618 --- elisp/ghc-process.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el index 165d2f9..6f63955 100644 --- a/elisp/ghc-process.el +++ b/elisp/ghc-process.el @@ -27,6 +27,7 @@ (defvar ghc-command "ghc-mod") +(defvar ghc-report-errors t "Report GHC errors to *GHC Error* buffer") (defvar ghc-error-buffer "*GHC Error*") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -144,7 +145,8 @@ (with-current-buffer pbuf (goto-char (point-max)) (insert-buffer-substring tbuf 1 end)) - (with-current-buffer (get-buffer-create ghc-error-buffer) + (when ghc-report-errors + (with-current-buffer (get-buffer-create ghc-error-buffer) (setq buffer-read-only t) (let* ((buffer-read-only nil) (inhibit-read-only t) @@ -156,7 +158,7 @@ (goto-char (point-max)) (insert-buffer-substring tbuf 1 end) (set-buffer-modified-p nil)) - (redisplay)))) + (redisplay))))) (delete-region 1 end))))) (goto-char (point-max)) (forward-line -1)