From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-workers-return-23302-mason-zsh=primenet.com.au@sunsite.dk>
Received: (qmail 708 invoked from network); 19 Apr 2007 20:24:15 -0000
X-Spam-Checker-Version: SpamAssassin 3.1.8 (2007-02-13) on f.primenet.com.au
X-Spam-Level: 
X-Spam-Status: No, score=-2.5 required=5.0 tests=BAYES_00,FORGED_RCVD_HELO
	autolearn=ham version=3.1.8
Received: from news.dotsrc.org (HELO a.mx.sunsite.dk) (130.225.247.88)
  by ns1.primenet.com.au with SMTP; 19 Apr 2007 20:24:15 -0000
Received-SPF: none (ns1.primenet.com.au: domain at sunsite.dk does not designate permitted sender hosts)
Received: (qmail 8882 invoked from network); 19 Apr 2007 20:24:09 -0000
Received: from sunsite.dk (130.225.247.90)
  by a.mx.sunsite.dk with SMTP; 19 Apr 2007 20:24:09 -0000
Received: (qmail 12016 invoked by alias); 19 Apr 2007 20:24:06 -0000
Mailing-List: contact zsh-workers-help@sunsite.dk; run by ezmlm
Precedence: bulk
X-No-Archive: yes
X-Seq: 23302
Received: (qmail 11997 invoked from network); 19 Apr 2007 20:24:04 -0000
Received: from news.dotsrc.org (HELO a.mx.sunsite.dk) (130.225.247.88)
  by sunsite.dk with SMTP; 19 Apr 2007 20:24:04 -0000
Received: (qmail 8559 invoked from network); 19 Apr 2007 20:24:04 -0000
Received: from acolyte.scowler.net (216.254.112.45)
  by a.mx.sunsite.dk with SMTP; 19 Apr 2007 20:24:00 -0000
Received: by acolyte.scowler.net (Postfix, from userid 1000)
	id DFDA91C001; Thu, 19 Apr 2007 16:23:58 -0400 (EDT)
Date: Thu, 19 Apr 2007 16:23:58 -0400
From: Clint Adams <clint@zsh.org>
To: zsh-workers@sunsite.dk
Subject: PATCH: _subversion prop(get|edit)
Message-ID: <20070419202358.GA9752@scowler.net>
Mail-Followup-To: zsh-workers@sunsite.dk
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.5.13 (2006-08-11)

Index: Completion/Unix/Command/_subversion
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Unix/Command/_subversion,v
retrieving revision 1.23
diff -u -r1.23 _subversion
--- Completion/Unix/Command/_subversion	13 Mar 2007 18:19:29 -0000	1.23
+++ Completion/Unix/Command/_subversion	19 Apr 2007 20:22:34 -0000
@@ -72,6 +72,12 @@
 	      '*:file:_files -g "*(e:_svn_controlled:)"'
             )
           ;;
+	  (propget|propedit)
+	    args+=(
+		'1:property name:_svn_props'
+		'2:target: _alternative "files:file:_files" "urls:URL:_svn_urls"'
+	    )
+	  ;;
 	  (propset)
 	    args=(
 	    ':propname:(svn:ignore svn:keywords svn:executable svn:eol-style svn:mime-type svn:externals svn:needs-lock)'
@@ -234,6 +240,14 @@
   compadd "$@" -k _svnadmin_cmds || compadd "$@" ${(s.:.)_svnadmin_cmds}
 }
 
+(( $+functions[_svn_props] )) ||
+_svn_props() {
+  local properties
+
+  properties=( ${${(M)${(f)"$(svn proplist 2>/dev/null)"}:#  [^ ]*}#  } )
+  compadd "$@" -a properties && return 0
+}
+
 _subversion () {
   case $service in
     (svn) _svn "$@" ;;