mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-04 10:41:11 +02:00
Code Releases Activity

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

7
ChangeLog
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> 2002-02-03 Clint Adams <clint@zsh.org>
* 16540: Completion/Unix/Command/_rsync: include short options and * 16540: Completion/Unix/Command/_rsync: include short options and

8
Completion/Unix/Command/_cvs
View file

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

3
Completion/Unix/Command/_perl
View file

@ -31,7 +31,8 @@ _perl () {
"-V-[print perl configuration information]:configuration keys:_perl_config_vars" \ "-V-[print perl configuration information]:configuration keys:_perl_config_vars" \
'-w[TURN WARNINGS ON FOR COMPILATION OF YOUR SCRIPT. Recommended.]' \ '-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 -/' \ '-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 () { _perl_m_opt () {