Mercurial > vim
view runtime/plugin/rrhelper.vim @ 8800:f57949e1e9f1 v7.4.1688
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Mar 30 22:03:02 2016 +0200
patch 7.4.1688
Problem: MzScheme does not support partial.
Solution: Add minimal partial support. (Ken Takata)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Wed, 30 Mar 2016 22:15:10 +0200 |
parents | f177a6431514 |
children |
line wrap: on
line source
" Vim plugin with helper function(s) for --remote-wait " Maintainer: Flemming Madsen <fma@cci.dk> " Last Change: 2008 May 29 " Has this already been loaded? if exists("loaded_rrhelper") || !has("clientserver") finish endif let loaded_rrhelper = 1 " Setup answers for a --remote-wait client who will assume " a SetupRemoteReplies() function in the command server function SetupRemoteReplies() let cnt = 0 let max = argc() let id = expand("<client>") if id == 0 return endif while cnt < max " Handle same file from more clients and file being more than once " on the command line by encoding this stuff in the group name let uniqueGroup = "RemoteReply_".id."_".cnt " Path separators are always forward slashes for the autocommand pattern. " Escape special characters with a backslash. let f = substitute(argv(cnt), '\\', '/', "g") if exists('*fnameescape') let f = fnameescape(f) else let f = escape(f, " \t\n*?[{`$\\%#'\"|!<") endif execute "augroup ".uniqueGroup execute "autocmd ".uniqueGroup." BufUnload ". f ." call DoRemoteReply('".id."', '".cnt."', '".uniqueGroup."', '". f ."')" let cnt = cnt + 1 endwhile augroup END endfunc function DoRemoteReply(id, cnt, group, file) call server2client(a:id, a:cnt) execute 'autocmd! '.a:group.' BufUnload '.a:file execute 'augroup! '.a:group endfunc " vim: set sw=2 sts=2 :