diff Doc/perl/python.perl @ 14766:72860ef03171 legacy-trunk

use_sans_serif(), use_italics(): Remove both functions, inlining use_italics() at its only call site. init_myformat(): Uncomment line so that some internal markup does not get generated, since it is not properly removed later. (Fix on aspect of SourceForge bug #114749.) Modified call to process_commands_wrap_deferred(), removing \code from the list since it had a bad interaction with other changes in some contexts.
author Fred Drake <fdrake@acm.org>
date Fri, 22 Sep 2000 17:05:04 +0000
parents 4d2e9cf1eb20
children 6af9aa15647f
line wrap: on
line diff
--- a/Doc/perl/python.perl	Fri Sep 22 16:20:23 2000 +0000
+++ b/Doc/perl/python.perl	Fri Sep 22 17:05:04 2000 +0000
@@ -110,13 +110,6 @@
     return $before . $stuff . $after . $_;
 }
 
-sub use_sans_serif{
-    return use_wrappers(@_[0], '<font face="sans-serif">', '</font>');
-}
-sub use_italics{
-    return use_wrappers(@_[0], '<i>', '</i>');
-}
-
 $IN_DESC_HANDLER = 0;
 sub do_cmd_optional{
     if ($IN_DESC_HANDLER) {
@@ -182,7 +175,7 @@
 sub do_cmd_dfn{
     return use_wrappers(@_[0], '<i class="dfn">', '</i>'); }
 sub do_cmd_emph{
-    return use_italics(@_); }
+    return use_wrappers(@_[0], '<i>', '</i>'); }
 sub do_cmd_file{
     return use_wrappers(@_[0], '<span class="file">', '</span>'); }
 sub do_cmd_filenq{
@@ -618,7 +611,7 @@
 sub do_cmd_nodename{ return do_cmd_label(@_); }
 
 sub init_myformat{
-#    $anchor_invisible_mark = '';
+    $anchor_invisible_mark = '';
     $anchor_mark = '';
     $icons{'anchor_mark'} = '';
 }
@@ -1531,8 +1524,12 @@
 }
 
 
+# I don't recall exactly why this was needed, but it was very much needed.
+# We'll see if anything breaks when I move the "code" line out -- some
+# things broke with it in.
+
+#code # {}
 process_commands_wrap_deferred(<<_RAW_ARG_DEFERRED_CMDS_);
-code # {}
 declaremodule # [] # {} # {}
 memberline # [] # {}
 methodline # [] # {} # {}