Mercurial > cpython-lru_cache-weakref

diff Doc/perl/python.perl @ 7937:f223bf61b4ee legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
do_cmd_lineii(), do_cmd_lineiii(): Fix markup style conversion to HTML tags for first column. (The endtag wasn't formed properly.)
author Fred Drake <fdrake@acm.org>
date Thu, 09 Apr 1998 17:59:11 +0000
parents 5eafd3eda0af
children daffde7a6891
line wrap: on
line diff
--- a/Doc/perl/python.perl	Thu Apr 09 17:54:26 1998 +0000
+++ b/Doc/perl/python.perl	Thu Apr 09 17:59:11 1998 +0000
@@ -760,13 +760,13 @@
     s/$next_pair_pr_rx//o;
     my $c1 = $2;
     s/$next_pair_pr_rx//o;
-    my($c2,$font,$efont) = ($2, $globals{"lineifont"}, '');
+    my($c2,$font,$sfont,$efont) = ($2, $globals{"lineifont"}, '', '');
     if ($font) {
-	$font = "<$font>";
+	$sfont = "<$font>";
 	$efont = "</$font>";
     }
     my($c1align,$c2align) = @col_aligns[0,1];
-    "<tr>$c1align$font$c1$efont</td>\n"
+    "<tr>$c1align$sfont$c1$efont</td>\n"
       . "      $c2align$c2</td>$'";
 }
 
@@ -801,13 +801,13 @@
     s/$next_pair_pr_rx//o;
     my $c2 = $2;
     s/$next_pair_pr_rx//o;
-    my($c3,$font,$efont) = ($2, $globals{"lineifont"}, '');
+    my($c3,$font,$sfont,$efont) = ($2, $globals{"lineifont"}, '', '');
     if ($font) {
-	$font = "<$font>";
+	$sfont = "<$font>";
 	$efont = "</$font>";
     }
     my($c1align, $c2align, $c3align) = @col_aligns;
-    "<tr>$c1align$font$c1$efont</td>\n"
+    "<tr>$c1align$sfont$c1$efont</td>\n"
       . "      $c2align$c2</td>\n"
       . "      $c3align$c3</td>$'";
 }