Add --keep option to keep downloaded packs to git-fetch.

Signed-off-by: Tom Prince <tom.prince@ualberta.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>

Documentation/fetch-options.txt

@@ -24,6 +24,9 @@
 	flag lets all tags and their associated objects be
 	downloaded.
 
+-k, \--keep::
+	Keep downloaded pack.
+
 -u, \--update-head-ok::
 	By default `git-fetch` refuses to update the head which
 	corresponds to the current branch.  This flag disables the

git-fetch.sh

@@ -40,6 +40,9 @@ do
 	-v|--verbose)
 		verbose=Yes
 		;;
+	-k|--k|--ke|--kee|--keep)
+		keep=--keep
+		;;
 	-*)
 		usage
 		;;
@@ -309,7 +312,7 @@ fetch_main () {
     ( : subshell because we muck with IFS
       IFS=" 	$LF"
       (
-	  git-fetch-pack "$remote" $rref || echo failed "$remote"
+	  git-fetch-pack $keep "$remote" $rref || echo failed "$remote"
       ) |
       while read sha1 remote_name
       do