Respect 'autowrite' in :Require and :RunTests

This commit is contained in:
Tim Pope 2014-05-04 18:09:56 -04:00
parent 020a10d06c
commit fff348ccd0
1 changed files with 6 additions and 0 deletions

View File

@ -1105,6 +1105,9 @@ augroup END
" :Require {{{1 " :Require {{{1
function! s:Require(bang, echo, ns) abort function! s:Require(bang, echo, ns) abort
if &autowrite || &autowriteall
silent! wall
endif
if expand('%:e') ==# 'cljs' if expand('%:e') ==# 'cljs'
let cmd = '(load-file '.s:str(tr(a:ns ==# '' ? fireplace#ns() : a:ns, '-.', '_/').'.cljs').')' let cmd = '(load-file '.s:str(tr(a:ns ==# '' ? fireplace#ns() : a:ns, '-.', '_/').'.cljs').')'
else else
@ -1437,6 +1440,9 @@ function! fireplace#capture_test_run(expr) abort
endfunction endfunction
function! s:RunTests(bang, echo, ...) abort function! s:RunTests(bang, echo, ...) abort
if &autowrite || &autowriteall
silent! wall
endif
let pre = '' let pre = ''
if a:bang && a:0 if a:bang && a:0
let expr = '(clojure.test/run-all-tests #"'.join(a:000, '|').'")' let expr = '(clojure.test/run-all-tests #"'.join(a:000, '|').'")'