Fix gnutls_priority_init documentation.

diff --git a/doc/scripts/gdoc b/doc/scripts/gdoc
index 82d9e0af1bd412aa8b4592a02d86768ff9c4124a..13a37bd3b595b9a7bc7cf11f1e08cf75a303bc03 100755 (executable)
--- a/doc/scripts/gdoc
+++ b/doc/scripts/gdoc
@@ -132,7 +132,7 @@
 use POSIX qw(strftime);
 
 # match expressions used to find embedded type information
-$type_constant = "\\\%(\\w+)";
+$type_constant = "((?<!\")\\\%(\\w+))";
 $type_func = "(\\w+\\(\\))";
 $type_param = "\\\@(\\w+)";
 $type_struct = "\\\#(\\w+)";
@@ -143,26 +143,26 @@ $type_env = "(\\\$\\w+)";
 #  One for each output format
 
 # these work fairly well
-%highlights_html = ( $type_constant, "<i>\$1</i>",
+%highlights_html = ( $type_constant, "<i>\$2</i>",
                     $type_func, "<b>\$1</b>",
                     $type_struct, "<i>\$1</i>",
                     $type_param, "<tt><b>\$1</b></tt>" );
 $blankline_html = "<p>";
 
-%highlights_texinfo = ( $type_constant, "\\\@code{\$1}",
+%highlights_texinfo = ( $type_constant, "\\\@code{\$2}",
                        $type_func, "\\\@code{\$1}",
                        $type_struct, "\\\@code{\$1}",
                        $type_param, "\\\@code{\$1}" );
 $blankline_texinfo = "";
 
-%highlights_tex = ( $type_constant, "{\\\\it \$1}",
+%highlights_tex = ( $type_constant, "{\\\\it \$2}",
                     $type_func, "{\\\\bf \$1}",
                     $type_struct, "{\\\\it \$1}",
                     $type_param, "{\\\\bf \$1}" );
 $blankline_tex = "\\\\";
 
 # sgml, docbook format
-%highlights_sgml = ( $type_constant, "<replaceable class=\"option\">\$1</replaceable>",
+%highlights_sgml = ( $type_constant, "<replaceable class=\"option\">\$2</replaceable>",
                     $type_func, "<function>\$1</function>",
                     $type_struct, "<structname>\$1</structname>",
                     $type_env, "<envar>\$1</envar>",
@@ -170,14 +170,14 @@ $blankline_tex = "\\\\";
 $blankline_sgml = "</para><para>\n";
 
 # these are pretty rough
-%highlights_man = ( $type_constant, "\\\\fB\$1\\\\fP",
+%highlights_man = ( $type_constant, "\\\\fB\$2\\\\fP",
                    $type_func, "\\\\fB\$1\\\\fP",
                    $type_struct, "\\\\fB\$1\\\\fP",
                    $type_param, "\\\\fI\$1\\\\fP" );
 $blankline_man = "";
 
 # text-mode
-%highlights_text = ( $type_constant, "\$1",
+%highlights_text = ( $type_constant, "\$2",
                     $type_func, "\$1",
                     $type_struct, "\$1",
                     $type_param, "\$1" );