Math-Pari-escape-left-braces-in-regex.patch

   1 --- libPARI/gphelp
   2 +++ libPARI/gphelp
   3 @@ -328,7 +328,7 @@ sub apropos
   4    @sentence_list = @list = "";
   5    while (<DOC>)
   6    {
   7 -    if (/^\\(subsubsec[a-z]*|subsec[a-z]*|section|chapter){/)
   8 +    if (/^\\(subsubsec[a-z]*|subsec[a-z]*|section|chapter)\{/)
   9      {
  10        $new = &get_match($_,'{','}');
  11        &apropos_check();
  12 @@ -1025,8 +1025,8 @@ sub TeXprint_topod {
  13    s/\$\$(.*?)\$\$\s*/\n\nS<  >$tr{startcode}$1$tr{endcode}\n\n/gs;
  14    s/\$([^\$]+)\$/$tr{startcode}$1$tr{endcode}/g;
  15
  16 -  s/\\s(?:ref|idx){\s*([^{}]*)}/$tr{startindex} . for_index($1) . $tr{endindex}/ge;
  17 -  s/\\(?:ref|idx){\s*([^{}]*)}/$tr{startindex} . for_index($1) . "$tr{endindex}$1"/ge;
  18 +  s/\\s(?:ref|idx)\{\s*([^{}]*)}/$tr{startindex} . for_index($1) . $tr{endindex}/ge;
  19 +  s/\\(?:ref|idx)\{\s*([^{}]*)}/$tr{startindex} . for_index($1) . "$tr{endindex}$1"/ge;
  20
  21  # Conflict between different versions of PARI and refcard:
  22  # s/\\(?:key|li)\s*{(.*)}\s*{(.+)}[ \t]*\n/\n\n=item C<$2>\n\n$1\n\n/msg;