From eeb5ec42e03f7de46d60cfd547bc083071cb5745 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 15 Apr 2002 17:46:00 +0000
Subject: [PATCH] Add support for \cmemberline and the cmemberdesc environment.

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

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 62c8dc6484a..5da971059a3 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -939,6 +939,30 @@ sub do_env_cfuncdesc{
            . '</dl>';
 }
 
+sub do_cmd_cmemberline{
+    local($_) = @_;
+    my $container = next_argument();
+    my $type = next_argument();
+    my $name = next_argument();
+    my $idx = make_str_index_entry("<tt class=\"cmember\">$name</tt>"
+                                   . " ($type member)");
+    $idx =~ s/ \(.*\)//;
+    return "<dt>$type <b>$idx</b>\n<dd>"
+           . $_;
+}
+sub do_env_cmemberdesc{
+    local($_) = @_;
+    my $container = next_argument();
+    my $type = next_argument();
+    my $name = next_argument();
+    my $idx = make_str_index_entry("<tt class=\"cmember\">$name</tt>"
+                                   . " ($type member)");
+    $idx =~ s/ \(.*\)//;
+    return "<dl><dt>$type <b>$idx</b>\n<dd>"
+           . $_
+           . '</dl>';
+}
+
 sub do_env_csimplemacrodesc{
     local($_) = @_;
     my $name = next_argument();