texlive[55726] Build/source/texk/web2c/cwebdir/cwebman-w2c.ch: [CWEB]

commits+ascherer at tug.org commits+ascherer at tug.org
Thu Jul 2 19:45:28 CEST 2020


Revision: 55726
          http://tug.org/svn/texlive?view=revision&revision=55726
Author:   ascherer
Date:     2020-07-02 19:45:28 +0200 (Thu, 02 Jul 2020)
Log Message:
-----------
[CWEB] Macro simplification.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch

Modified: trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch	2020-07-02 11:21:53 UTC (rev 55725)
+++ trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch	2020-07-02 17:45:28 UTC (rev 55726)
@@ -65,6 +65,7 @@
         \everypar{\hskip-\parindent\everypar{}}}
 
 \outer\def\ssection #1.#2.{\penalty-500\bigskip
+        \centerline{\sectionfont\def\.##1{{\twelvett##1}}
   \ifacro\vbox to 0pt{\kern-2.5ex\relax
     \ifpdftex\pdfdest num \destcount fitbh\relax
     \else\special{pdf: dest (\the\destcount) [ @thispage /FitBH @ypos ]}\fi
@@ -76,7 +77,7 @@
     \gdef\bkminfo{}%
     \global\advance\destcount by 1\relax
     \kern2.5ex\relax
-  }\fi \centerline{\sectionfont\def\.##1{{\twelvett##1}} #1}\nobreak\vskip 6pt
+  }\fi #1}\nobreak\vskip 6pt
         \everypar{\hskip-\parindent\everypar{}}}
 
 \def\appA{15}
@@ -84,18 +85,16 @@
 \def\appC{17}
 
 \def\Appendix#1{\leavevmode
-  \ifnum\csname app#1\endcsname>0 %
-    \ifacro\ifpdftex
-      \pdfstartlink attr{/Border[0 0 0]} goto num\csname app#1\endcsname\relax
-      \Blue\hbox{Appendix}~#1\Black
-      \pdfendlink
-    \else
-      \setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{\hbox{Appendix}~#1}%
-      \special{pdf: ec}}\special{pdf: ann width \thewidth height \theheight
-        depth \thedepth << /Type /Annot /Subtype /Link /Border [0 0 0]
-        /A << /S /GoTo /D (\csname app#1\endcsname) >> >>}\box0\relax
-    \fi\else Appendix~#1\fi
-  \else Appendix~#1\fi}
+  \ifacro\ifpdftex
+    \pdfstartlink attr{/Border[0 0 0]} goto num\csname app#1\endcsname\relax
+    \Blue\hbox{Appendix}~#1\Black
+    \pdfendlink
+  \else
+    \setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{\hbox{Appendix}~#1}%
+    \special{pdf: ec}}\special{pdf: ann width \thewidth height \theheight
+      depth \thedepth << /Type /Annot /Subtype /Link /Border [0 0 0]
+      /A << /S /GoTo /D (\csname app#1\endcsname) >> >>}\box0\relax
+  \fi\else Appendix~#1\fi}
 
 \newcount\subdestcount \subdestcount=151\relax
 



More information about the tex-live-commits mailing list.