X-Git-Url: http://git.iain.cx/?a=blobdiff_plain;f=.vim%2Fscript%2Fp4;h=f4f48ddb67c9dcfff694f2189024078e26da64eb;hb=3c2f9e59a2f2d1297ac9d05aa9c64a78d8c554e8;hp=402634db45d40d56243e5e5d4983f2b8bceaf91f;hpb=87fd00a95f29f7c98cef42dacc16910b243d81ff;p=profile.git

diff --git a/.vim/script/p4 b/.vim/script/p4
index 402634d..f4f48dd 100644
--- a/.vim/script/p4
+++ b/.vim/script/p4
@@ -1,23 +1,33 @@
-" $Id$ vim: se syntax=vim:
 " Define the function we'll use.  It's easier to do this than to faff about 
 " trying to run a sequence of normal mode commands.
 fun! P4submit()
   " There's no point doing this if the spec is readonly.  That probably means 
   " it's a submitted change.
   if ! &ro
+    setf perforce
+
     " Clear the unnamed register.
     let @" = ""
     try
       " Delete the spec blurb if it exists.
-      /^# A Perforce Change Spec/,/^$/d
+      /^# A Perforce Change Spec/,/^# *(New changelists only\.)$/d
       " If the blurb was deleted the text will be in the unnamed register.
-      if @" != ""
+      if @" != "grgergregergeg"
+        " Delete the blank line left above the remaining fields.
+        1
+        delete
+
         " Allow closing an unmodified spec.
         set nomod
 
+        " Get the files in the changelist.
+        let l:files = system("sed -n 's@^	\\(//.*\\)	#.*@\\1@p' " . bufname(""))
         " Create a new window, move it below the spec and read in a diff.
         botright new
-        r!p4 diff
+        if l:files != ""
+          exe "r!env P4DIFF= p4 diff -du " .  substitute(l:files, "\n", " ", "g")
+        endif
+
         setf diff
 
         " Delete the blank line left above the diff.
@@ -45,7 +55,7 @@ endfun
 
 " Expand the command line window so we don't have to press RETURN later.
 let s:cmdheight = &cmdheight
-set cmdheight=2
+set cmdheight=3
 
 " Call and then discard our function.
 call P4submit()