From 17f0c30d462386010284b2da03f0f108ca7d5114 Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Fri, 3 Dec 1999 16:46:56 +0000
Subject: manual/8876

---
 Completion/Core/_approximate | 15 ++++++++-------
 Completion/Core/_expand      | 22 ++++++++++++----------
 Doc/Zsh/compsys.yo           | 18 ++++++++++++++----
 3 files changed, 34 insertions(+), 21 deletions(-)

diff --git a/Completion/Core/_approximate b/Completion/Core/_approximate
index 9c2e35306..f10d6588c 100644
--- a/Completion/Core/_approximate
+++ b/Completion/Core/_approximate
@@ -59,9 +59,9 @@ compadd() {
     PREFIX="(#a${_comp_correct})$PREFIX"
   fi
   if [[ -n "$_correct_prompt" ]]; then
-    builtin compadd -X "$_correct_prompt" -J _correct "$@"
+    builtin compadd -X "$_correct_prompt" -J corrections "$@"
   else
-    builtin compadd -J _correct "$@"
+    builtin compadd -J corrections "$@"
   fi
 }
 
@@ -78,6 +78,11 @@ compstate[matcher]=-1
 
 _correct_prompt="${cfgps//\\%e/1}"
 
+_setup original corrections
+
+[[ "$cfgorig" != *last* ]] && builtin compadd -V original
+builtin compadd -J corrections
+
 [[ -z "$compstate[pattern_match]" ]] && compstate[pattern_match]='*'
 
 while [[ _comp_correct -le comax ]]; do
@@ -99,11 +104,7 @@ while [[ _comp_correct -le comax ]]; do
       else
         expl=(-n)
       fi
-      if [[ "$cfgorig" = *last* ]]; then
-        builtin compadd "$expl[@]" -U -V _correct_original -Q - "$PREFIX$SUFFIX"
-      elif [[ -n "$cfgorig" ]]; then
-	builtin compadd "$expl[@]" -U -Q - "$PREFIX$SUFFIX"
-      fi
+      builtin compadd "$expl[@]" -U -V original -Q - "$PREFIX$SUFFIX"
 
       # If you always want to see the list of possible corrections,
       # set `compstate[list]=list' here.
diff --git a/Completion/Core/_expand b/Completion/Core/_expand
index e611dc3e2..7598b6f88 100644
--- a/Completion/Core/_expand
+++ b/Completion/Core/_expand
@@ -82,7 +82,9 @@ fi
 
 # Quote the results and remove unnecessary quotes before `='s.
 
-    exp=( "${(@)${(@)${(@q)exp}//\\\\=/=}/#=/\\=}" )
+exp=( "${(@)${(@)${(@q)exp}//\\\\=/=}/#=/\\=}" )
+
+_setup original expansions all-expansions
 
 # We have expansions, should we menucomplete them?
 
@@ -93,15 +95,15 @@ if [[ -z "$menu" ]]; then
   # probably also adding the original string.
 
   if [[ -z "$compstate[insert]" ]]; then
-    compadd -U -V _expand -Q - "$exp[@]"
+    compadd -U -V all-expansions -Q - "$exp[@]"
   else
     [[ -n "$orig" && "$orig" != *last* ]] &&
-        compadd "$expl[@]" -UQ -V _expand_original - "$word"
+        compadd "$expl[@]" -UQ -V original - "$word"
 
     compadd -UQ -V _expand - "$exp"
 
     [[ -n "$orig" && "$orig" = *last* ]] &&
-        compadd "$expl[@]" -UQ -V _expand_original - "$word"
+        compadd "$expl[@]" -UQ -V original - "$word"
 
     compstate[insert]=menu
   fi
@@ -114,22 +116,22 @@ else
   # and/or the string containing all expanded string.
 
   [[ -n "$orig" && "$orig" != *last* ]] &&
-      compadd "$expl[@]" -UQ -V _expand_original - "$word"
+      compadd "$expl[@]" -UQ -V original - "$word"
 
   [[ $#exp -ne 1 && "$menu" = *last* && "$menu" != *only* ]] &&
-      compadd "$expl2[@]" -UQ -V _expand_all - "$exp"
+      compadd "$expl2[@]" -UQ -V all-expansions - "$exp"
 
   if [[ -z "$prompt" ]]; then
-    compadd -UQ $group _expand - "$exp[@]"
+    compadd -UQ $group expansions - "$exp[@]"
   else
     compadd -UQ -X "${prompt//\\%o/$word}" \
-            $group _expand - "$exp[@]"
+            $group expansions - "$exp[@]"
   fi
   [[ $#exp -ne 1 && "$menu" != *last* && "$menu" != *only* ]] &&
-      compadd "$expl2[@]" -UQ -V _expand_all - "$exp"
+      compadd "$expl2[@]" -UQ -V all-expansions - "$exp"
 
   [[ -n "$orig" && "$orig" = *last* ]] &&
-      compadd "$expl[@]" -UQ -V _expand_original - "$word"
+      compadd "$expl[@]" -UQ -V original - "$word"
 
   compstate[insert]=menu
 fi
diff --git a/Doc/Zsh/compsys.yo b/Doc/Zsh/compsys.yo
index cddf9a976..5725b085b 100644
--- a/Doc/Zsh/compsys.yo
+++ b/Doc/Zsh/compsys.yo
@@ -523,10 +523,6 @@ some of these tags are not really used when generating mathes but
 instead are only used by some completion functions when looking up
 styles.
 
-em(NOTE: There are far too many of them -- we have to find ways to reduce
-the number. Please tell us if you think that you have identified a tag 
-that should be replaced by one of the more generic ones.)
-
 startitem()
 item(tt(accounts))(
 used to look up the tt(users-hosts) style
@@ -534,6 +530,10 @@ used to look up the tt(users-hosts) style
 item(tt(all-files))(
 for the names of all files
 )
+item(tt(all-expansions))(
+used by the tt(_expand) completer when adding the string containing
+all expansions
+)
 item(tt(arguments))(
 when an argument of a command may be completed
 )
@@ -561,6 +561,9 @@ item(tt(commands))(
 for names of external commands and names of sub-commands (used by some 
 commands like tt(cvs))
 )
+item(tt(corrections))(
+used by the tt(_approximate) completer for the possible corrections
+)
 item(tt(cursors))(
 for cursor names used by X programs
 )
@@ -583,6 +586,9 @@ for entries in the directory stack
 item(tt(displays))(
 for X display names
 )
+item(tt(expansions))(
+used by the tt(_expand) completer for possible expansions
+)
 item(tt(extensions))(
 for X server extensions
 )
@@ -662,6 +668,10 @@ for nicknames of YP maps
 item(tt(options))(
 for command options
 )
+item(tt(original))(
+used by the tt(_approximate) and tt(_expand) completers when adding
+the original string
+)
 item(tt(other-accounts))(
 used to look up the tt(users-hosts) style
 )
-- 
cgit 1.4.1