From 2da947af878842ab8676e48a26d1aeb25c082e3e Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 4 Mar 1998 05:30:49 +0000
Subject: Comment out the attempt to get index-related stuff processed in the
 right order.  LaTeX2HTML just doesn't do things the same way as LaTeX, and
 this wasn't the fix.

Simplify the generated HTML for \file{}.

For \samp{}, use "..." instead of `...'; many fonts make that look pretty
bad.   ;-(
---
 Doc/perl/python.perl | 48 ++++++++++++++++++++++++------------------------
 Doc/python.perl      | 48 ++++++++++++++++++++++++------------------------
 2 files changed, 48 insertions(+), 48 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 73c917e..2ea09e6 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -317,28 +317,28 @@ sub init_myformat{
     $any_next_pair_pr_rx_5 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP";
     $any_next_pair_pr_rx_7 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\7$CP";
     $any_next_pair_pr_rx_9 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\9$CP";
-    if (defined &process_commands_wrap_deferred) {
-	&process_commands_wrap_deferred(<<THESE_COMMANDS);
-indexii # {} # {}
-indexiii # {} # {} # {}
-indexiv # {} # {} # {} # {}
-exindex # {}
-obindex # {}
-opindex # {}
-stindex # {}
-ttindex # {}
-bifuncindex # {}
-modindex # {}
-bimodindex # {}
-exmodindex # {}
-stmodindex # {}
-refmodindex # {}
-refbimodindex # {}
-refexmodindex # {}
-refstmodindex # {}
-rfc # {}
-THESE_COMMANDS
-    }
+#     if (defined &process_commands_wrap_deferred) {
+# 	&process_commands_wrap_deferred(<<THESE_COMMANDS);
+# indexii # {} # {}
+# indexiii # {} # {} # {}
+# indexiv # {} # {} # {} # {}
+# exindex # {}
+# obindex # {}
+# opindex # {}
+# stindex # {}
+# ttindex # {}
+# bifuncindex # {}
+# modindex # {}
+# bimodindex # {}
+# exmodindex # {}
+# stmodindex # {}
+# refmodindex # {}
+# refbimodindex # {}
+# refexmodindex # {}
+# refstmodindex # {}
+# rfc # {}
+# THESE_COMMANDS
+#     }
 }
 
 &init_myformat;
@@ -697,13 +697,13 @@ sub do_cmd_file{
     # understand "<font face=...>" markup will use courier (or whatever
     # the font is for <tt>).
     local($_) = @_;
-    s/$any_next_pair_pr_rx/`<tt><font face=sans-serif>\2<\/font><\/tt>'/;
+    s/$any_next_pair_pr_rx/\"<tt>\2<\/tt>\"/;
     $_;
 }
 
 sub do_cmd_samp{
     local($_) = @_;
-    s/$any_next_pair_pr_rx/`<tt>\2<\/tt>'/;
+    s/$any_next_pair_pr_rx/\"<tt>\2<\/tt>\"/;
     $_;
 }
 
diff --git a/Doc/python.perl b/Doc/python.perl
index 73c917e..2ea09e6 100644
--- a/Doc/python.perl
+++ b/Doc/python.perl
@@ -317,28 +317,28 @@ sub init_myformat{
     $any_next_pair_pr_rx_5 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP";
     $any_next_pair_pr_rx_7 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\7$CP";
     $any_next_pair_pr_rx_9 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\9$CP";
-    if (defined &process_commands_wrap_deferred) {
-	&process_commands_wrap_deferred(<<THESE_COMMANDS);
-indexii # {} # {}
-indexiii # {} # {} # {}
-indexiv # {} # {} # {} # {}
-exindex # {}
-obindex # {}
-opindex # {}
-stindex # {}
-ttindex # {}
-bifuncindex # {}
-modindex # {}
-bimodindex # {}
-exmodindex # {}
-stmodindex # {}
-refmodindex # {}
-refbimodindex # {}
-refexmodindex # {}
-refstmodindex # {}
-rfc # {}
-THESE_COMMANDS
-    }
+#     if (defined &process_commands_wrap_deferred) {
+# 	&process_commands_wrap_deferred(<<THESE_COMMANDS);
+# indexii # {} # {}
+# indexiii # {} # {} # {}
+# indexiv # {} # {} # {} # {}
+# exindex # {}
+# obindex # {}
+# opindex # {}
+# stindex # {}
+# ttindex # {}
+# bifuncindex # {}
+# modindex # {}
+# bimodindex # {}
+# exmodindex # {}
+# stmodindex # {}
+# refmodindex # {}
+# refbimodindex # {}
+# refexmodindex # {}
+# refstmodindex # {}
+# rfc # {}
+# THESE_COMMANDS
+#     }
 }
 
 &init_myformat;
@@ -697,13 +697,13 @@ sub do_cmd_file{
     # understand "<font face=...>" markup will use courier (or whatever
     # the font is for <tt>).
     local($_) = @_;
-    s/$any_next_pair_pr_rx/`<tt><font face=sans-serif>\2<\/font><\/tt>'/;
+    s/$any_next_pair_pr_rx/\"<tt>\2<\/tt>\"/;
     $_;
 }
 
 sub do_cmd_samp{
     local($_) = @_;
-    s/$any_next_pair_pr_rx/`<tt>\2<\/tt>'/;
+    s/$any_next_pair_pr_rx/\"<tt>\2<\/tt>\"/;
     $_;
 }
 
-- 
cgit v0.12