Calling save-buffer interactively.

from Troels Henriksen.
This commit is contained in:
Kazu Yamamoto 2012-08-03 12:44:28 +09:00
parent eedca795e1
commit 256eec740c

View File

@ -41,7 +41,7 @@
(defun ghc-save-buffer () (defun ghc-save-buffer ()
(interactive) (interactive)
(if (buffer-modified-p) (if (buffer-modified-p)
(save-buffer) (call-interactively 'save-buffer)
(flymake-start-syntax-check))) (flymake-start-syntax-check)))
(provide 'ghc-command) (provide 'ghc-command)