fix(xfunc ARRAY filter): support exit status 27 or predicate

Author: akinomyoga

completions/ARRAY

@@ -2,13 +2,21 @@
 
 # Filter the array elements with the specified condition.
 # @param $1 Array name (that is not "value" or other internal variable names)
-# @param $2 When none of the options -EFG are specified, this is used as the
-#   command that tests the array element.  The command is supposed to exit with
-#   status 0 when the element should be preserved, and 1 when the element
-#   should be removed.  The other exit status will cancel the array filtering.
-#   If this is an existing function name, the function is called with the value
-#   of the array element.  Otherwise, this shall be the shell command that
-#   tests the array-element value stored in the shell variable "value".
+# @param $2 When any of the options `-EFG' is specified, the second argument is
+#   used as a pattern string whose meaning is determined by the option `-EFG'.
+#   Otherwise, the second argument specifies the command that tests the array
+#   element.  The command is supposed to exit with:
+#
+#     status 0 .... when the element should be preserved
+#     status 1 .... when the element should be removed
+#     status 27 ... when the loop should be canceled.  All the remaining
+#                   elements will be preserved regardless of the presence of
+#                   option `-r'.
+#
+#   The other exit status will cancel the array filtering.  If this is an
+#   existing command name, the function is called with the value of the array
+#   element.  Otherwise, this shall be the shell command that tests the
+#   array-element value stored in the shell variable "value".
 #
 # Options:
 #     -E          $2 is interpreted as a POSIX extended regular expression.
@@ -114,6 +122,7 @@ _comp_xfunc_ARRAY_filter()
                 unset -v "$1[\$_comp_local_index]"
                 _comp_local_unset=1
                 ;;
+            27) break ;;
             *)
                 printf 'bash_completion: %s: %s\n' "$FUNCNAME" \
                     "the filter condition broken '${_comp_local_pattype:+-$_comp_local_pattype }$2'" >&2