"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>