From adb272ceeed1fe6e2af2e51982c305066cec7244 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 10 Apr 2000 17:47:14 +0000
Subject: [PATCH] do_cmd_datalineni():  New function, to implement the
 non-indexing form                       of \dataline.

---
 Doc/perl/python.perl | 6 ++++++
 1 file changed, 6 insertions(+)

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