Mercurial > cpython-lru_cache-weakref

diff Doc/perl/python.perl @ 7798:49f11eb4eb9a legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
This fixes a (minor) problem discovered by AMK when you don't want any special markup for the first column of a table using {tableii} or {tableiii}. In LaTeX, this requires using "textrm" as the formatting function, and this is needed to remove the bogus "<textrm>" that gets generated otherwise. There should probably be a more general mapping of specified markup to useful markup, but that doesn't appear needed at the moment. do_env_tableii(), do_env_tableiii(): If the markup for the first column is \textrm, make it empty. do_cmd_lineii(), do_cmd_lineiii(): If the markup for the first column is empty, don't add markup around the text.
author Fred Drake <fdrake@acm.org>
date Thu, 02 Apr 1998 20:14:04 +0000
parents 1c420699d58a
children dffe1e470e6c
line wrap: on
line diff
--- a/Doc/perl/python.perl	Thu Apr 02 19:36:25 1998 +0000
+++ b/Doc/perl/python.perl	Thu Apr 02 20:14:04 1998 +0000
@@ -742,6 +742,8 @@
       "$next_pair_rx$any_next_pair_rx3$any_next_pair_rx5$any_next_pair_rx7";
     if (/$tableiii_rx/o) {
 	$font = $4;
+	$font = ''
+	    if ($font eq 'textrm');
 	$h1 = $6;
 	$h2 = $8;
     }
@@ -758,10 +760,13 @@
     s/$next_pair_pr_rx//o;
     my $c1 = $2;
     s/$next_pair_pr_rx//o;
-    my $c2 = $2;
-    my $font = $globals{"lineifont"};
+    my($c2,$font,$efont) = ($2, $globals{"lineifont"}, '');
+    if ($font) {
+	$font = "<$font>";
+	$efont = "</$font>";
+    }
     my($c1align,$c2align) = @col_aligns[0,1];
-    "<tr>$c1align<$font>$c1</$font></td>\n"
+    "<tr>$c1align$font$c1$efont</td>\n"
       . "      $c2align$c2</td>$'";
 }
 
@@ -774,6 +779,8 @@
 	. "$any_next_pair_rx9";
     if (/$tableiii_rx/o) {
 	$font = $4;
+	$font = ''
+	    if ($font eq 'textrm');
 	$h1 = $6;
 	$h2 = $8;
 	$h3 = $10;
@@ -794,10 +801,13 @@
     s/$next_pair_pr_rx//o;
     my $c2 = $2;
     s/$next_pair_pr_rx//o;
-    my $c3 = $2;
-    my $font = $globals{"lineifont"};
+    my($c3,$font,$efont) = ($2, $globals{"lineifont"}, '');
+    if ($font) {
+	$font = "<$font>";
+	$efont = "</$font>";
+    }
     my($c1align, $c2align, $c3align) = @col_aligns;
-    "<tr>$c1align<$font>$c1</$font></td>\n"
+    "<tr>$c1align$font$c1$efont</td>\n"
       . "      $c2align$c2</td>\n"
       . "      $c3align$c3</td>$'";
 }