From 663fbdf4670a682c4c88e38c8eb695e919179513 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Wed, 30 May 2007 10:46:50 +0000
Subject: 23495: fix fall out from (R) change in completion system

---
 Completion/Base/Completer/_prefix | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'Completion/Base/Completer/_prefix')

diff --git a/Completion/Base/Completer/_prefix b/Completion/Base/Completer/_prefix
index c17b381e3..74be5f47d 100644
--- a/Completion/Base/Completer/_prefix
+++ b/Completion/Base/Completer/_prefix
@@ -7,9 +7,13 @@
 local comp curcontext="$curcontext" tmp suf="$SUFFIX" \
       _completer \
       _matcher _c_matcher _matchers _matcher_num
+integer ind
 
-zstyle -a ":completion:${curcontext}:" completer comp ||
-  comp=( "${(@)_completers[1,_completer_num-1][(R)_prefix(|:*),-1]}" )
+if ! zstyle -a ":completion:${curcontext}:" completer comp; then
+  comp=( "${(@)_completers[1,_completer_num-1]}" )
+  ind=${comp[(I)_prefix(|:*)]}
+  (( ind )) && comp=("${(@)comp[ind,-1]}")
+fi
 
 if zstyle -t ":completion:${curcontext}:" add-space; then
   ISUFFIX=" $SUFFIX"
-- 
cgit 1.4.1