regcomp.c: Greek multi-char folds fix

GREEK PROSGEGRAMMENI and COMBINING GREEK YPOGEGRAMMENI fold to the
the first character of one of the tricky folds, and hence need
to be treated as potentially tricky themselves.

diff --git a/regcomp.c b/regcomp.c
index 21d54f8..130a6b7 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8838,6 +8838,9 @@ tryagain:
                            break;
                        case 0x03B9:    /* First char in iota series */
                        case 0x0399:    /* Also capital IOTA */
+                       case 0x1FBE:    /* GREEK PROSGEGRAMMENI folds to 3B9 */
+                       case 0x0345:    /* COMBINING GREEK YPOGEGRAMMENI folds
+                                          to 3B9 */
                            if (p < RExC_end - 4) {
                                latest_char_state = iota_1;
                                if (len != 0) {