From 0749034911b1e28d4d9abba5472201972a5e37ce Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Tue, 12 Oct 1999 09:30:35 +0000
Subject: zsh-workers/8217

---
 Completion/Core/_complete | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

(limited to 'Completion/Core/_complete')

diff --git a/Completion/Core/_complete b/Completion/Core/_complete
index 6affdba2a..073212d0f 100644
--- a/Completion/Core/_complete
+++ b/Completion/Core/_complete
@@ -36,20 +36,7 @@ else
   # Let's see if we have a special completion definition for the other
   # possible contexts.
 
-  comp=''
-
-  case $compstate[context] in
-  equal)           comp="$_comps[-equal-]";;
-  tilde)           comp="$_comps[-tilde-]";;
-  redirect)        comp="$_comps[-redirect-]";;
-  math)            comp="$_comps[-math-]";;
-  subscript)       comp="$_comps[-subscript-]";;
-  value)           comp="$_comps[-value-]";;
-  array_value)     comp="$_comps[-array-value-]";;
-  condition)       comp="$_comps[-condition-]";;
-  parameter)       comp="$_comps[-parameter-]";;
-  brace_parameter) comp="$_comps[-brace-parameter-]";;
-  esac
+  comp="$_comps[-${compstate[context]:s/_/-/}-]"
 
   # If not, we use default completion, if any.
 
-- 
cgit 1.4.1