"Show in a new window the Subversion log for the revision number under the | |
" cursor. | |
:function s:svnLog() | |
let rev = expand("<cword>") | |
" recognise "rN" as well as plain "N" | |
let rev = substitute(rev, "^r", "", "") | |
if rev | |
botright 15new | |
exec '%!svn log "^/" -r ' . rev | |
normal gg | |
setlocal nomodified readonly buftype=nofile nowrap | |
else | |
echo "svnLog: no revision number under cursor" | |
endif | |
:endfunction | |
:map gl :call <SID>svnLog()<CR> |