fix(emacs/lean-mode): pass lean-options to lean-execute

Related issue: #196
This commit is contained in:
Soonho Kong 2014-09-15 09:47:00 -07:00
parent 75ab5e07d6
commit ff6862f587

View file

@ -39,7 +39,10 @@
(defun lean-execute (&optional arg)
"Execute Lean in the current buffer"
(interactive "sarg: ")
(interactive)
(setq arg (concat (lean-option-string) " " arg))
(when (called-interactively-p)
(setq arg (read-string "arg: " arg)))
(let ((target-file-name
(or
(buffer-file-name)