diff Doc/perl/python.perl @ 12343:be5100afa1b7 legacy-trunk

do_cmd_datalineni(): New function, to implement the non-indexing form of \dataline.
author Fred Drake <fdrake@acm.org>
date Mon, 10 Apr 2000 17:47:14 +0000
parents 5ea773413531
children c59bdc7fd8a6
line wrap: on
line diff
--- a/Doc/perl/python.perl	Mon Apr 10 17:41:37 2000 +0000
+++ b/Doc/perl/python.perl	Mon Apr 10 17:47:14 2000 +0000
@@ -773,6 +773,12 @@
     return "<dt><b>$idx</b><dd>" . $_;
 }
 
+sub do_cmd_datalineni{
+    local($_) = @_;
+    my $data_name = next_argument();
+    return "<dt><b><tt>$data_name</tt></b><dd>" . $_;
+}
+
 sub do_env_excdesc{
     local($_) = @_;
     my $excname = next_argument();