add `services', allowing easier re-use of (parts of) completion functions (13346)

1 files changed, 9 insertions, 2 deletions

diff --git a/Completion/Core/compdump b/Completion/Core/compdump
index 25df17fbf..a94a41df6 100644
--- a/Completion/Core/compdump
+++ b/Completion/Core/compdump
@@ -35,8 +35,9 @@ fi
 
 print "#files: $#_d_files" > $_d_file
 
-# First dump the arrays _comps and _patcomps.  The quoting hieroglyphyics
-# ensure that a single quote inside a variable is itself correctly quoted.
+# First dump the arrays _comps, _services and _patcomps.  The quoting
+# hieroglyphyics ensure that a single quote inside a variable is itself
+# correctly quoted.
 
 print "_comps=(" >> $_d_file
 for _d_f in ${(ok)_comps}; do
@@ -44,6 +45,12 @@ for _d_f in ${(ok)_comps}; do
 done  >> $_d_file
 print ")" >> $_d_file
 
+print "_services=(" >> $_d_file
+for _d_f in ${(ok)_services}; do
+    print -r - "${(q)_d_f}" "${(q)_services[$_d_f]}"
+done  >> $_d_file
+print ")" >> $_d_file
+
 print "\n_patcomps=(" >> $_d_file
 for _d_f in "${(ok@)_patcomps}"; do
   print -r - "${(q)_d_f}" "${(q)_patcomps[$_d_f]}"