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

freddrake · freddrake · commit adb272ceeed1 · 2000-04-10T17:47:14.000Z
of \dataline.
diff --git 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();
