From 5c111766c1e772e934e030e6d03f399100b4b845 Mon Sep 17 00:00:00 2001
From: Felix Rosencrantz <f_rosencrantz@users.sourceforge.net>
Date: Sun, 28 Jan 2001 19:37:30 +0000
Subject: zsh-workers/13395: Added code to test compstate[insert_positions],
 value of insert_positions are now reported

---
 Test/comptest | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Test/comptest')

diff --git a/Test/comptest b/Test/comptest
index 0f57e7d70..a01b18134 100644
--- a/Test/comptest
+++ b/Test/comptest
@@ -97,7 +97,7 @@ comptest () {
     if [[ "$log" = (#b)*$'<LBUFFER>'(*)$'</LBUFFER>\r\n<RBUFFER>'(*)$'</RBUFFER>'* ]]; then
       print -lr "line: {$match[1]}{$match[2]}"
     fi
-    while (( ${(N)log#*(#b)(<LC><(??)><RC>(*)<EC>|<DESCRIPTION>(*)</DESCRIPTION>|<MESSAGE>(*)</MESSAGE>|<COMPADD>(*)</COMPADD>)} )); do
+    while (( ${(N)log#*(#b)(<LC><(??)><RC>(*)<EC>|<DESCRIPTION>(*)</DESCRIPTION>|<MESSAGE>(*)</MESSAGE>|<COMPADD>(*)</COMPADD>|<INSERT_POSITIONS>(*)</INSERT_POSITIONS>)} )); do
       log="${log[$mend[1]+1,-1]}"
       if (( 0 <= $mbegin[2] )); then
 	if [[ $match[2] != TC && $match[3] != \ # ]]; then
@@ -109,6 +109,8 @@ comptest () {
 	print -lr "MESSAGE:{$match[5]}"
       elif (( 0 <= $mbegin[6] )); then
         print -lr "COMPADD:{${${match[6]}//[$'\r\n']/}}"
+      elif (( 0 <= $mbegin[7] )); then
+        print -lr "INSERT_POSITIONS:{${${match[7]}//[$'\r\n']/}}"
       fi
     done
   done
-- 
cgit 1.4.1