diff options
Diffstat (limited to 'tmac/an-old.tmac')
-rw-r--r-- | tmac/an-old.tmac | 54 |
1 files changed, 26 insertions, 28 deletions
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac index caa1fa4e..75c1ff16 100644 --- a/tmac/an-old.tmac +++ b/tmac/an-old.tmac @@ -62,9 +62,7 @@ .. . .\" .TH title section extra1 extra2 extra3 -.de TH -. cp 0 -. +.de1 TH . if \\n[an-html] \{\ . HTML-TAG ".tl" \\$1 @@ -135,16 +133,16 @@ . \} .. . -.de DT +.de1 DT . ta T .5i \" This sets tabs every .5 inches .. . -.de PD +.de1 PD . ie \\n[.$] .nr PD (v;\\$1) . el .nr PD (.4v >? \n[.V]) .. . -.de an-header +.de1 an-header . an-init . ev 1 . ps \\n[PS]u @@ -164,13 +162,13 @@ . ns .. . -.de an-footer +.de1 an-footer ' bp .. . .af an-page-letter a . -.de an-p-footer +.de1 an-p-footer . ev 1 . ps \\n[PS]u . vs \\n[VS]u @@ -202,7 +200,7 @@ . ev .. . -.de an-end +.de1 an-end . nr % 1 . pl +3v . fl @@ -213,7 +211,7 @@ . .if \n[cR] .em an-end . -.de SH +.de1 SH . sp \\n[PD]u . nr an-level 1 . set-an-margin @@ -231,7 +229,7 @@ . if \\n[.$] \&\\$* .. . -.de SS +.de1 SS . sp \\n[PD]u . nr an-level 1 . set-an-margin @@ -248,32 +246,32 @@ . if \\n[.$] \&\\$* .. . -.de B +.de1 B . it 1 an-trap . ft B . if \\n[.$] \&\\$* .. . -.de I +.de1 I . it 1 an-trap . ft I . if \\n[.$] \&\\$* .. . -.de SM +.de1 SM . it 1 an-trap . ps -1 . if \\n[.$] \&\\$* .. . -.de SB +.de1 SB . it 1 an-trap . ps -1 . ft B . if \\n[.$] \&\\$* .. . -.de TP +.de1 TP . sp \\n[PD]u . if \\n[.$] .nr an-prevailing-indent (n;\\$1) . it 1 an-trap @@ -286,7 +284,7 @@ . nr an-div? 1 .. . -.de an-trap +.de1 an-trap . ft R . ps \\n[PS]u . vs \\n[VS]u @@ -322,7 +320,7 @@ . \} .. . -.de LP +.de1 LP . br . sp \\n[PD]u . ps \\n[PS]u @@ -335,7 +333,7 @@ .als PP LP .als P LP . -.de IP +.de1 IP . ie !\\n[.$] \{\ . ps \\n[PS]u . vs \\n[VS]u @@ -351,7 +349,7 @@ . \} .. . -.de HP +.de1 HP . ps \\n[PS]u . vs \\n[VS]u . ft R @@ -364,7 +362,7 @@ . .ds an-empty \" this is referenced to avoid looping on eg .RB ( \\ ) . -.de RI +.de1 RI . if \\n[.$] \{\ . ds an-result \&\\$1 . shift @@ -377,7 +375,7 @@ . \} .. . -.de IR +.de1 IR . if \\n[.$] \{\ . ds an-result \&\f[I]\\$1\f[R] . shift @@ -390,7 +388,7 @@ . \} .. . -.de IB +.de1 IB . if \\n[.$] \{\ . ds an-result \&\f[I]\\$1 . shift @@ -404,7 +402,7 @@ . \} .. . -.de BI +.de1 BI . if \\n[.$] \{\ . ds an-result \&\f[B]\\$1 . shift @@ -418,7 +416,7 @@ . \} .. . -.de RB +.de1 RB . ds an-result \& . while (\\n[.$] >= 2) \{\ . as an-result \f[R]\\$1\f[B]\\$2\\*[an-empty] @@ -429,7 +427,7 @@ . ft R .. . -.de BR +.de1 BR . ds an-result \& . while (\\n[.$] >= 2) \{\ . as an-result \f[B]\\$1\f[R]\\$2\\*[an-empty] @@ -440,7 +438,7 @@ . ft R .. . -.de RS +.de1 RS . br . nr an-saved-margin\\n[an-level] \\n[an-margin] . nr an-saved-prevailing-indent\\n[an-level] \\n[an-prevailing-indent] @@ -451,7 +449,7 @@ . nr an-level +1 .. . -.de RE +.de1 RE . br . ie \\n[.$] .nr an-level ((;\\$1) <? \\n[an-level]) . el .nr an-level -1 |