1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-02 10:01:11 +02:00

Fixed some problems with _cvs and flags. Fixed _perl to complete a script

args with _normal.
This commit is contained in:
Felix Rosencrantz 2002-02-04 06:25:35 +00:00
parent 1dd643b016
commit 2d35fd6ab0
3 changed files with 13 additions and 5 deletions

View file

@ -1,3 +1,10 @@
2002-02-03 Felix Rosencrantz <f_rosencrantz@yahoo.com>
* 16546: Completion/Unix/Command/_cvs,
Completion/Unix/Command/_perl: Fixed problem with cvs/arguments -A
flag. Fixed problem with "cvs log -R". Also, _perl completes
the arguments to a perl script with _normal.
2002-02-03 Clint Adams <clint@zsh.org>
* 16540: Completion/Unix/Command/_rsync: include short options and

View file

@ -149,8 +149,8 @@ _cvs_rannotate () {
_cvs_checkout () {
# "+ANnk:d:flRpQqcsr:D:j:P"
_arguments -s \
'-A[reset sticky tags, dates and -k]' \
'-N[don'\''t shorten module paths]' \
'-A[reset sticky tags, dates and -k]' \
'-n[disable checkout program]' \
'-f[use most recent revision if -D/-r is not matched]' \
'(-R)-l[don'\''t recursive]' \
@ -398,8 +398,8 @@ _cvs_log () {
_arguments -s \
'-b[default branch]' \
'(-t)-h[header]' \
'(-R)-l[don'\''t recursive]' \
'(-l)-R[recursive]' \
'-l[don'\''t recurse]' \
'-R[Print the name of RCS file in the repository]' \
'-N[don'\''t list tags]' \
'(-h)-t[header with descriptive text]' \
'-d+[specify dates]:dates:' \
@ -541,8 +541,8 @@ _cvs_unedit () {
_cvs_update () {
# "+ApCPflRQqduk:r:D:j:I:W:"
_arguments -s \
'-A[reset sticky tags, dates and -k]' \
'-C[overwrite local modification]' \
'-A[reset sticky tags, dates and -k]' \
'-p[check out to standard output]' \
'-P[prune empty directory]' \
'-f[use head revision]' \

View file

@ -31,7 +31,8 @@ _perl () {
"-V-[print perl configuration information]:configuration keys:_perl_config_vars" \
'-w[TURN WARNINGS ON FOR COMPILATION OF YOUR SCRIPT. Recommended.]' \
'-x-[strip off text before #!perl line and perhaps cd to directory]:directory to cd to:_files -/' \
'*:Perl script:_files -/ -g \*.p\[ml\]'
'1:Perl script:_files -/ -g \*.p\[ml\]' \
'*::args: _normal'
}
_perl_m_opt () {