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

                      of \dataline.

1 files changed, 6 insertions, 0 deletions

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 6b67df5b05..c6306dc340 100644
--- 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();