summaryrefslogtreecommitdiffstats
path: root/Doc/perl/python.perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1999-07-12 16:50:09 (GMT)
committerFred Drake <fdrake@acm.org>1999-07-12 16:50:09 (GMT)
commit6b3fb78ca8094cdbf68dd556edc0ea9ee16217cb (patch)
treeec4159ac07f3b4ed5bed665c1151f4eb84bfda30 /Doc/perl/python.perl
parent6db897c52c02508523334f18b393b592f7e548aa (diff)
downloadcpython-6b3fb78ca8094cdbf68dd556edc0ea9ee16217cb.zip
cpython-6b3fb78ca8094cdbf68dd556edc0ea9ee16217cb.tar.gz
cpython-6b3fb78ca8094cdbf68dd556edc0ea9ee16217cb.tar.bz2
do_cmd_funclineni(): New function; non-indexing form of \funcline.
Diffstat (limited to 'Doc/perl/python.perl')
-rw-r--r--Doc/perl/python.perl9
1 files changed, 9 insertions, 0 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 307944e..d42fe1d 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -627,6 +627,15 @@ sub do_cmd_funcline{
return "<dt><b>$prefix</b> (<var>$arg_list</var>)\n<dd>" . $_;
}
+sub do_cmd_funclineni{
+ local($_) = @_;
+ my $function_name = next_argument();
+ my $arg_list = next_argument();
+ my $prefix = "<tt class=function>$function_name</tt>";
+
+ return "<dt><b>$prefix</b> (<var>$arg_list</var>)\n<dd>" . $_;
+}
+
# Change this flag to index the opcode entries. I don't think it's very
# useful to index them, since they're only presented to describe the dis
# module.