do_cmd_datalineni(): New function, to implement the non-indexing form

                      of \dataline.

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 6b67df5b05d400464bc1932ee893b9b3ee783bf9..c6306dc340eedab43ca36bf20c4e89faf99c779b 100644 (file)
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -773,6 +773,12 @@ sub do_cmd_dataline{
     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();