diff options
| -rw-r--r-- | Doc/perl/python.perl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 2eb1d6f..3fc7454 100644 --- 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> </td>\n" . " <td> </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{ |