--- a/Doc/perl/python.perl	Wed Jan 13 16:58:53 1999 +0000
+++ b/Doc/perl/python.perl	Wed Jan 13 17:06:34 1999 +0000
@@ -148,6 +148,16 @@
 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();