diff options
author | Sven Wischnowsky <wischnow@users.sourceforge.net> | 2001-04-02 11:14:49 +0000 |
---|---|---|
committer | Sven Wischnowsky <wischnow@users.sourceforge.net> | 2001-04-02 11:14:49 +0000 |
commit | 22713b817d8b08864c6f84918c29e248f4ac50f7 (patch) | |
tree | bd0c70061bffdbf0d47bbca38c370a32b06c3cff /Completion | |
parent | f5ff83fe0b9eba9bfe5a7465c592b12f035691cc (diff) | |
download | zsh-22713b817d8b08864c6f84918c29e248f4ac50f7.tar.gz zsh-22713b817d8b08864c6f84918c29e248f4ac50f7.tar.xz zsh-22713b817d8b08864c6f84918c29e248f4ac50f7.zip |
moved to Completion/Base/Widget/_complete_tag
Diffstat (limited to 'Completion')
-rw-r--r-- | Completion/Commands/_complete_tag | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/Completion/Commands/_complete_tag b/Completion/Commands/_complete_tag deleted file mode 100644 index 5a26c3890..000000000 --- a/Completion/Commands/_complete_tag +++ /dev/null @@ -1,57 +0,0 @@ -#compdef -k complete-word \C-xt - -# Complete tags using either TAGS or tags. Looks up your directory -# hierarchy to find one. If both exist, uses TAGS. -# -# You can override the choice of tags file with $TAGSFILE (for TAGS) -# or $tagsfile (for tags). -# -# Could be rewritten by some sed expert to use sed instead of perl. - -emulate -L zsh - -# Tags file to look for -local c_Tagsfile=${TAGSFILE:-TAGS} c_tagsfile=${tagsfile:-tags} expl -# Max no. of directories to scan up through -integer c_maxdir=10 -# Context. -local curcontext="$curcontext" -local -a c_tags_array - -if [[ -z "$curcontext" ]]; then - curcontext="complete-tag:::" -else - curcontext="complete-tag:${curcontext#*:}" -fi - -local c_path= -integer c_idir -while [[ ! -f $c_path$c_Tagsfile && - ! -f $c_path$c_tagsfile && $c_idir -lt $c_maxdir ]]; do - (( c_idir++ )) - c_path=../$c_path -done - -if [[ -f $c_path$c_Tagsfile ]]; then - # prefer the more comprehensive TAGS, which unfortunately is a - # little harder to parse. - # could do this with sed, just can't be bothered to work out how, - # after quarter of an hour of trying, except for - # rm -f =sed; ln -s /usr/local/bin/perl /usr/bin/sed - # but that's widely regarded as cheating. - c_tags_array=($(sed -n \ - -e 's/^\(.*[a-zA-Z_0-9]\)[[ '$'\t'':;,()]*'$'\177''.*$/\1/' \ - -e 's/^.*[^a-zA-Z_0-9]//' \ - -e '/^[a-zA-Z_].*/p' $c_path$c_Tagsfile)) -# c_tags_array=($(perl -ne '/([a-zA-Z_0-9]+)[ \t:;,\(]*\x7f/ && -# print "$1\n"' $c_path$c_Tagsfile)) - _main_complete - '' _wanted etags expl 'emacs tags' \ - compadd -a c_tags_array -elif [[ -f $c_path$c_tagsfile ]]; then - # tags doesn't have as much in, but the tag is easy to find. - # we can use awk here. - c_tags_array=($(awk '{ print $1 }' $c_path$c_tagsfile)) - _main_complete - '' _wanted vtags expl 'vi tags' compadd -a c_tags_array -else - return 1 -fi |