+" $Id$
+" 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
+ " Clear the unnamed register.
+ let @" = ""
+ try
+ " Delete the spec blurb if it exists.
+ /^# A Perforce Change Spec/,/^$/d
+ " If the blurb was deleted the text will be in the unnamed register.
+ if @" != ""
+ " Allow closing an unmodified spec.
+ set nomod