# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 959272240 0
# Node ID fe06affca2945145a323466c2c955ad97935cc7a
# Parent  eb1c9224a1c6babd0d321055c1784229b274e65b
(at_begline_loc_p): Also recognize the \\(?:^ case
of an anchor at the beginning of a shy-group.

diff -r eb1c9224a1c6 -r fe06affca294 src/regex.c
--- a/src/regex.c	Thu May 25 15:59:47 2000 +0000
+++ b/src/regex.c	Thu May 25 16:30:40 2000 +0000
@@ -3208,7 +3208,12 @@
        /* After a subexpression?  */
        (*prev == '(' && (syntax & RE_NO_BK_PARENS || prev_prev_backslash))
        /* After an alternative?	 */
-    || (*prev == '|' && (syntax & RE_NO_BK_VBAR || prev_prev_backslash));
+    || (*prev == '|' && (syntax & RE_NO_BK_VBAR || prev_prev_backslash))
+       /* After a shy subexpression?  */
+    || ((syntax & RE_SHY_GROUPS) && prev - 2 >= pattern
+	&& prev[-1] == '?' && prev[-2] == '('
+	&& (syntax & RE_NO_BK_PARENS
+	    || (prev - 3 >= pattern && prev[-3] == '\\')));
 }