From 273067d55d66db3909a6c38a56935606b4d08e57 Mon Sep 17 00:00:00 2001
From: Bart Schaefer <barts@users.sourceforge.net>
Date: Sun, 23 Jun 2002 04:52:39 +0000
Subject: users/5073: use typeset to get function names for compdump

---
 Completion/compdump | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'Completion/compdump')

diff --git a/Completion/compdump b/Completion/compdump
index 630d96c63..128cb841c 100644
--- a/Completion/compdump
+++ b/Completion/compdump
@@ -101,13 +101,9 @@ bindkey |
 print >> $_d_file
 
 
-# Autoloads: whence -w produces "_d_foo: function", so look for
-# all functions beginning with `_'.
+# Autoloads: look for all functions beginning with `_'.
 
-_d_als=($(whence -wm '_*' | sort |
-while read -rA _d_line; do
-  [[ ${_d_line[2]} = function ]] && print -r - ${_d_line[1]%:}
-done))
+_d_als=(${(o)$(typeset +fm '_*')})
 
 # print them out:  about five to a line looks neat
 
@@ -116,7 +112,7 @@ print -n autoload -U >> $_d_file
 while (( $#_d_als )); do
   if (( ! $+_compautos[$_d_als[1]] )); then
     print -n " $_d_als[1]"
-    if (( ! _i-- && $#_d_als > 1 )); then
+    if (( ! --_i && $#_d_als > 1 )); then
       _i=5
       print -n ' \\\n           '
     fi
-- 
cgit 1.4.1