🚀 go-pugleaf

In GNU Emacs 18.59.0 of Tue Nov 10 1992 on kitt (berkeley-unix)

(string-match "[A-[]" "A") fails when case-fold-search is t.  This is
because bug in regex.c.  PATFECTH does implecit translate, so we must
use PATFETCH_RAW.  Here is a patch.

--enami.
===================================================================
RCS file: RCS/regex.c,v
retrieving revision 1.1
diff -u -r1.1 regex.c
--- 1.1	1992/11/10 04:55:00
+++ regex.c	1992/11/10 04:55:51
@@ -404,12 +404,12 @@
 	  /* Read in characters and ranges, setting map bits */
 	  while (1)
 	    {
-	      PATFETCH (c);
+	      PATFETCH_RAW (c);
 	      if (c == ']' && p != p1 + 1) break;
 	      if (*p == '-' && p[1] != ']')
 		{
-		  PATFETCH (c1);
-		  PATFETCH (c1);
+		  PATFETCH_RAW (c1);
+		  PATFETCH_RAW (c1);
 		  if (translate)
 		    while (c <= c1)
 		      {