1 " Define the function we'll use. It's easier to do this than to faff about
2 " trying to run a sequence of normal mode commands.
4 " There's no point doing this if the spec is readonly. That probably means
5 " it's a submitted change.
9 " Clear the unnamed register.
12 " Delete the spec blurb if it exists.
13 /^# A Perforce Change Spec/,/^# *(New changelists only\.)$/d
14 " If the blurb was deleted the text will be in the unnamed register.
16 " Delete the blank line left above the remaining fields.
20 " Allow closing an unmodified spec.
23 " Get the files in the changelist.
24 let l:files = system("sed -n 's@^ \\(//.*\\) #.*@\\1@p' " . bufname(""))
25 " Create a new window, move it below the spec and read in a diff.
28 exe "r!env P4DIFF= p4 diff -du " . substitute(l:files, "\n", " ", "g")
33 " Delete the blank line left above the diff.
42 " Switch back to the top window and put the cursor by the description.
46 ?<enter description here>
50 " We get here if no blurb was deleted. This is the case if we aren't
56 " Expand the command line window so we don't have to press RETURN later.
57 let s:cmdheight = &cmdheight
60 " Call and then discard our function.
63 " Don't expand tabs in the spec.
66 " Restore the command window.
67 exe "set cmdheight=" . s:cmdheight
69 " Close the scratch buffer.
71 " Vim 7 lets us close the buffer by number. The changelist is always in #1.
72 au BufWinLeave <buffer=1> qa!
74 " Prior versions can only do it by name. Fall back to a temporary file.
75 au BufWinLeave /tmp/tmp.*.* qa!