From c66544a86b60c435741e019ca03da2bc3b7d7108 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Tue, 8 Aug 2000 09:13:36 +0000
Subject: 12561: Completion/Builtins/_zmodload, Doc/Zsh/builtins.yo,
 Src/builtin.c, Src/module.c, Src/zsh.h: aliases for modules done internally
 via `zmodload -[AR]'

---
 Completion/Builtins/_zmodload | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'Completion')

diff --git a/Completion/Builtins/_zmodload b/Completion/Builtins/_zmodload
index 5ca167152..4fa2183a6 100644
--- a/Completion/Builtins/_zmodload
+++ b/Completion/Builtins/_zmodload
@@ -1,11 +1,18 @@
 #compdef zmodload
 
-local fl="$words[2]" expl
+local fl="$words[2]" expl ret=1
 
 if [[ "$fl" = -*(a*u|u*a)* || "$fl" = -*a* && CURRENT -ge 4 ]]; then
   _wanted builtins expl 'builtin command' compadd "$@" -k builtins
 elif [[ "$fl" = -*u* ]]; then
   _wanted modules expl module compadd -k modules
 else
-  _wanted files expl 'module file' _files -W module_path -/g '*.s[ol](:r)'
+  _tags files aliases
+  while _tags; do
+    _requested files expl 'module file' \
+      _files -W module_path -/g '*.s[ol](:r)' && ret=0
+    _requested aliases expl 'module alias' \
+      compadd -- ${${(f)"$(zmodload -A)"}%% *} && ret=0
+    (( ret )) || break
+  done
 fi
-- 
cgit 1.4.1