Merge pull request #649 from robstewart57/master

Adds report-ghc-errors to turn off *GHC Error* buffer when nil
This commit is contained in:
Daniel Gröber 2015-10-13 21:19:57 +02:00
commit 8f4752ebd6

View File

@ -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)