From c612a14e9e19bd073807fdcd6c0f630a63780d06 Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Thu, 29 Mar 2001 18:24:08 +0000 Subject: [PATCH] Remove the spurious space of uncertain origin from the output for function, method and constructor signatures. Suggested by Peter Funk on the Doc-SIG mailing list. --- Doc/perl/python.perl | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 890066ffc7c..a0cd5075d6c 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -730,7 +730,7 @@ sub do_env_cfuncdesc{ . "\n $rcinfo." . "\n"); } - return "
$return_type $idx ($arg_list)\n
" + return "
$return_type $idx($arg_list)\n
" . $rcinfo . $_ . '
'; @@ -785,7 +785,7 @@ sub do_env_funcdesc{ . get_indexsubitem()); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)<\/tt>/<\/tt>/; - return "
$idx ($arg_list)\n
" . $_ . '
'; + return "
$idx($arg_list)\n
" . $_ . '
'; } sub do_env_funcdescni{ @@ -793,7 +793,7 @@ sub do_env_funcdescni{ my $function_name = next_argument(); my $arg_list = convert_args(next_argument()); return "
$function_name" - . " ($arg_list)\n" + . "($arg_list)\n" . '
' . $_ . '
'; @@ -807,7 +807,7 @@ sub do_cmd_funcline{ my $idx = make_str_index_entry($prefix . get_indexsubitem()); $prefix =~ s/\(\)//; - return "
$prefix ($arg_list)\n
" . $_; + return "
$prefix($arg_list)\n
" . $_; } sub do_cmd_funclineni{ @@ -816,7 +816,7 @@ sub do_cmd_funclineni{ my $arg_list = convert_args(next_argument()); my $prefix = "$function_name"; - return "
$prefix ($arg_list)\n
" . $_; + return "
$prefix($arg_list)\n
" . $_; } # Change this flag to index the opcode entries. I don't think it's very @@ -895,7 +895,7 @@ sub handle_classlike_descriptor{ $idx = make_str_index_entry( "$THIS_CLASS ($what in $THIS_MODULE)" ); $idx =~ s/ \(.*\)//; - return ("
$what $idx ($arg_list)\n
" + return ("
$what $idx($arg_list)\n
" . $_ . '
'); } @@ -923,7 +923,7 @@ sub do_env_methoddesc{ my $idx = make_str_index_entry("$method()$extra"); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)//; - return "
$idx ($arg_list)\n
" . $_ . '
'; + return "
$idx($arg_list)\n
" . $_ . '
'; } @@ -941,7 +941,7 @@ sub do_cmd_methodline{ my $idx = make_str_index_entry("$method()$extra"); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)//; - return "
$idx ($arg_list)\n
" + return "
$idx($arg_list)\n
" . $_; } @@ -951,7 +951,7 @@ sub do_cmd_methodlineni{ next_optional_argument(); my $method = next_argument(); my $arg_list = convert_args(next_argument()); - return "
$method ($arg_list)\n
" + return "
$method($arg_list)\n
" . $_; } @@ -960,7 +960,7 @@ sub do_env_methoddescni{ next_optional_argument(); my $method = next_argument(); my $arg_list = convert_args(next_argument()); - return "
$method ($arg_list)\n
" + return "
$method($arg_list)\n
" . $_ . '
'; }