mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-10-02 17:01:19 +02:00
moved to Completion/Unix/Command/_perldoc
This commit is contained in:
parent
c352138cfa
commit
3ba95afe9c
@ -1,23 +0,0 @@
|
||||
#compdef perldoc
|
||||
#
|
||||
#
|
||||
# _perldoc - zsh completion function for perldoc
|
||||
#
|
||||
# Adam Spiers <adam@spiers.net>
|
||||
#
|
||||
# Behaviour should be roughly equivalent to:
|
||||
# compctl -k perl_modules -k perl_basepods -f
|
||||
# -x 'c[-1,-f]' -k perl_funcs --
|
||||
# + -k man_pages
|
||||
# perldoc
|
||||
|
||||
if [[ $CURRENT -eq 3 && $words[2] == '-f' ]]; then
|
||||
_perl_builtin_funcs
|
||||
elif [[ $CURRENT -eq 3 && $words[2] == '-q' ]]; then
|
||||
zle -R "I can't read your mind!"
|
||||
else
|
||||
_perl_modules
|
||||
_perl_basepods
|
||||
_path_files -/ -g '*.(pod|pm)'
|
||||
fi
|
||||
|
Loading…
Reference in New Issue
Block a user