From 4837fa3a540c13bfbc734924c5776295734289c6 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 18 Jun 2002 18:30:28 +0000
Subject: \productioncont:  Replace leading spaces with &nbsp; 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.
---
 Doc/perl/python.perl | 3 +++
 1 file changed, 3 insertions(+)

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/^( +)/'&nbsp;' 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{
-- 
cgit v0.12