From d07868ae528960d4c1b860dca5daaa448cb8b021 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 14 May 1998 21:00:28 +0000
Subject: Added support for \developer, \developers, \developersaddress.

---
 Doc/perl/python.perl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 3a1eaa1..536f324 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -68,7 +68,7 @@ sub do_cmd_NULL{ '<tt>NULL</tt>' . @_[0]; }
 
 sub do_cmd_e{ '&#92;' . @_[0]; }
 
-$AUTHOR_ADDRESS = '';
+$DEVELOPER_ADDRESS = '';
 $PYTHON_VERSION = '';
 
 sub do_cmd_version{ $PYTHON_VERSION . @_[0]; }
@@ -80,10 +80,14 @@ sub do_cmd_release{
 
 sub do_cmd_authoraddress{
     local($_) = @_;
-    $AUTHOR_ADDRESS = next_argument();
+    $DEVELOPER_ADDRESS = next_argument();
     $_;
 }
 
+sub do_cmd_developer{ do_cmd_author(@_[0]); }
+sub do_cmd_developers{ do_cmd_author(@_[0]); }
+sub do_cmd_developersaddress{ do_cmd_authoraddress(@_[0]); }
+
 sub do_cmd_hackscore{
     local($_) = @_;
     next_argument();
@@ -783,8 +787,8 @@ sub do_cmd_maketitle {
     } else { write_warnings("\nThere is no author for this document."); }
     if ($t_institute) {
         $the_title .= "\n<p>$t_institute</p>";}
-    if ($AUTHOR_ADDRESS) {
-        $the_title .= "\n<p>$AUTHOR_ADDRESS</p>";}
+    if ($DEVELOPER_ADDRESS) {
+        $the_title .= "\n<p>$DEVELOPER_ADDRESS</p>";}
     if ($t_affil) {
 	$the_title .= "\n<p><i>$t_affil</i></p>";}
     if ($t_date) {
-- 
cgit v0.12