From 2581704dfa339e586d6e3cc3b1abcf5bbebb4dfc Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 13 Jan 1999 17:06:34 +0000
Subject: do_cmd_refmodule():  New function to support new \refmodule macro.

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

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index ff0bd88..d982f56 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -148,6 +148,16 @@ sub do_cmd_samp{ return use_wrappers(@_[0], '"<tt>', '</tt>"'); }
 sub do_cmd_kbd{ return use_wrappers(@_[0], '<kbd>', '</kbd>'); }
 sub do_cmd_strong{ return use_wrappers(@_[0], '<b>', '</b>'); }
 
+sub do_cmd_refmodule{
+    # Insert the right magic to jump to the module definition.
+    local($_) = @_;
+    my $key = next_optional_argument();
+    my $module = next_argument();
+    $key = $module
+        unless $key;
+    return "<tt><a href=\"module-$key.html\">$module</a></tt>" . $_;
+}
+
 sub do_cmd_newsgroup{
     local($_) = @_;
     my $newsgroup = next_argument();
-- 
cgit v0.12