setting after-save-hook to nil in ghc-flymake-init.

This commit is contained in:
Kazu Yamamoto 2012-06-13 18:16:39 +09:00
parent 29243c626c
commit 4207b80fdb

View File

@ -34,7 +34,8 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ghc-flymake-init ()
(let ((after-save-hook nil))
(let ((before-save-hook nil)
(after-save-hook nil))
(save-buffer))
(let ((file (file-name-nondirectory (buffer-file-name))))
(list ghc-module-command (ghc-flymake-command file))))