don't save the buffer for hlint.

2014-03-27 12:27:09 +09:00 · 2014-03-27 12:27:09 +09:00 · bf935c5741
commit bf935c5741
parent 9ab0f4bf19
1 changed files with 5 additions and 2 deletions
--- a/elisp/ghc-command.el
+++ b/elisp/ghc-command.el
@ -84,8 +84,11 @@
 (defun ghc-save-buffer ()
  (interactive)
  ;; fixme: better way then saving?
-  (set-buffer-modified-p t)
-  (call-interactively 'save-buffer)
+  (if ghc-check-command ;; hlint
+      (if (buffer-modified-p)
+	  (call-interactively 'save-buffer))
+    (set-buffer-modified-p t)
+    (call-interactively 'save-buffer))
  (ghc-check-syntax))

 (provide 'ghc-command)