\productioncont: Replace leading spaces with   so that it's

    possible to control the indentation of continuation lines.

cfuncline_helper():  Only mark the argument names are <var>, not the
    whole argument list.  This leaves the argument types in the same
    font as the return type.  Based on a casual suggestion from
    Guido.

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 2eb1d6f0ea2bb20ff467846b76da72379194d62f..3fc745477f09be91c43ba14a0761258ec88c4182 100644 (file)
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -808,6 +808,7 @@ sub do_cmd_production{
 sub do_cmd_productioncont{
     local($_) = @_;
     my $defn = next_argument();
+    $defn =~ s/^( +)/' ' x length $1/e;
     return ("<tr valign=\"baseline\">\n"
             . "    <td>&nbsp;</td>\n"
             . "    <td>&nbsp;</td>\n"
@@ -911,6 +912,8 @@ sub cfuncline_helper($$$){
         "<tt class=\"cfunction\">$name()</tt>" . get_indexsubitem());
     $idx =~ s/ \(.*\)//;
     $idx =~ s/\(\)//;          # ???? - why both of these?
+    $args =~ s/(\s|\*)([a-z_][a-z_0-9]*),/\1<var>\2<\/var>,/g;
+    $args =~ s/(\s|\*)([a-z_][a-z_0-9]*)$/\1<var>\2<\/var>/s;
     return "$type <b>$idx</b>(<var>$args</var>)";
 }
 sub do_cmd_cfuncline{