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.

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 45c19ba4f7bee1f9faf3f5def06c0d274bd228a0..ae0d7b1a24621059144bd34326653dcd0266febb 100644 (file)
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -110,13 +110,6 @@ sub use_wrappers{
     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_var{
 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 idx_cmd_refstmodindex{ return ref_module_index_helper('standard', @_); }
 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 @@ sub do_cmd_term{
 }
 
 
+# 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 # [] # {} # {}