From 53b0a922a2f7132b7b177836c181e34d95a22fd4 Mon Sep 17 00:00:00 2001 From: Oliver Kiddle Date: Sat, 17 Apr 2004 21:07:16 +0000 Subject: 19790: complete functions after -a and allow multiple -z/-k options --- Completion/Zsh/Command/_zcompile | 31 +++++++++++++++++-------------- 1 file changed, 17 insertions(+), 14 deletions(-) (limited to 'Completion/Zsh') diff --git a/Completion/Zsh/Command/_zcompile b/Completion/Zsh/Command/_zcompile index 2d8e6d033..727ead3b1 100644 --- a/Completion/Zsh/Command/_zcompile +++ b/Completion/Zsh/Command/_zcompile @@ -3,23 +3,26 @@ local state line expl curcontext="$curcontext" ret=1 typeset -A opt_args -_arguments -C -s -A "-*" -S \ - '(-t -c -m -a)-U[don'\''t expand aliases]' \ - '(-t -M)-R[mark as read]' \ - '(-t -R)-M[mark as mapped]' \ - '(-t -c -z -m -a)-k[ksh-style autoloading]' \ - '(-t -c -k -m -a)-z[zsh-style autoloading]' \ - '(-t -U -z -k)-c[currently defined functions]' \ - '(-t -U -z -k)-m[use names as patterns]' \ - '(-t -U -z -k)-a[write autoload functions]' \ - '(-M -R -U -z -k -a -c -m)-t[show table of contents]' \ - ':zwc file:_files' \ - '*:function:->function' && ret=0 +_arguments -C -s \ + "(-t -c -m -a)-U[don't expand aliases]" \ + '(-t -M)-R[mark as read]' \ + '(-t -R)-M[mark as mapped]' \ + '(-t -c -m -a)*-k[ksh-style autoloading]' \ + '(-t -c -m -a)*-z[zsh-style autoloading]' \ + '(-t -U -z -k)-c[currently defined functions]' \ + '(-t -U -z -k)-m[use names as patterns]' \ + '(-t -U -z -k)-a[write autoload functions]' \ + '(-M -R -U -z -k -a -c -m)-t[show table of contents]' \ + '(-M -R -U -a -c -m -t):file:->file' \ + '*:function:->function' && ret=0 -if (( $+opt_args[-c] )); then +if [[ $state = function && -n $opt_args[(i)-[ac]] ]]; then _wanted functions expl 'function to write' compadd -k functions && ret=0 +elif [[ -n $opt_args[(i)-[tca]] ]]; then + _description files expl 'zwc file' + _files -g '*.zwc(-.)' "$expl[@]" && ret=0 else - _description files expl 'zsh source file' + _description files expl 'file' _files "$expl[@]" && ret=0 fi -- cgit 1.4.1