checking buffer-read-only.

2014-04-07 14:59:53 +09:00 · 2014-04-07 14:59:53 +09:00 · 4b9b26655a
parent 58e0b91e65
commit 4b9b26655a
1 changed files with 3 additions and 2 deletions
--- a/elisp/ghc-command.el
+++ b/elisp/ghc-command.el
@ -87,8 +87,9 @@
  (if ghc-check-command ;; hlint
      (if (buffer-modified-p)
 	  (call-interactively 'save-buffer))
-    (set-buffer-modified-p t)
-    (call-interactively 'save-buffer))
+    (unless buffer-read-only
+      (set-buffer-modified-p t)
+      (call-interactively 'save-buffer)))
  (ghc-check-syntax))

 (provide 'ghc-command)