From c9f5fe0d1c692c0f720a951db863d7665b331eab Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 9 Nov 1999 16:59:42 +0000
Subject: do_cmd_programopt():  New function, similar to do_cmd_program().

do_cmd_citetitle():  New function.  Extracts one optional and one
                     required parameter.  If the optional one is
                     provided, it is used a URL (or relative URL) and
                     the text of the required parameter is turned into
                     a hyperlink.
---
 Doc/perl/python.perl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 718734e..57a19ed 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -148,6 +148,8 @@ sub do_cmd_character{
     return use_wrappers(@_[0], '"<tt class=character>', '</tt>"'); }
 sub do_cmd_program{
     return use_wrappers(@_[0], '<b class=program>', '</b>'); }
+sub do_cmd_programopt{
+    return use_wrappers(@_[0], '<b class="programopt">', '</b>'); }
 sub do_cmd_email{
     return use_wrappers(@_[0], '<span class=email>', '</span>'); }
 sub do_cmd_mimetype{
@@ -233,6 +235,23 @@ sub do_cmd_rfc{
             . $_);
 }
 
+sub do_cmd_citetitle{
+    local($_) = @_;
+    my $url = next_optional_argument();
+    my $title = next_argument();
+    my $repl = '';
+    if ($url) {
+        $repl = ("<em class='citetitle'><a\n"
+                 . " href='$url'\n"
+                 . " title='$title'\n"
+                 . " >$title</a></em>");
+    }
+    else {
+        $repl = "<em class='citetitle'\n >$title</em>";
+    }
+    return $repl . $_;
+}
+
 sub do_cmd_deprecated{
     # two parameters:  \deprecated{version}{whattodo}
     local($_) = @_;
-- 
cgit v0.12

