From 885215c3da9b70f535acbea2c15ccebe1705da04 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 20 May 1998 21:32:09 +0000
Subject: Added support for AMK's {definitions} environment; thanks for the
 reminder!

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

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 7267497..3f34539 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -837,4 +837,24 @@ sub do_cmd_maketitle {
 }
 
 
+#
+#  Definition list support.
+#
+
+sub do_env_definitions{
+    local($_) = @_;
+    swallow_newline();
+    "<dl>$_</dl>\n";
+}
+
+sub do_cmd_term{
+    local($_) = @_;
+    my($term, $id) = next_argument_id();
+    my($name,$aname,$ahref) = link_info($id);
+    swallow_newline();
+    # could easily add an index entry here...
+    "<dt><b>$aname" . $term . "</a></b>\n<dd>" . $_;
+}
+
+
 1;				# This must be the last line
-- 
cgit v0.12