summaryrefslogtreecommitdiff
path: root/tmac/an-old.tmac
diff options
context:
space:
mode:
Diffstat (limited to 'tmac/an-old.tmac')
-rw-r--r--tmac/an-old.tmac32
1 files changed, 17 insertions, 15 deletions
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index e0ac1bec..adf46f76 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -183,24 +183,26 @@
. ds an-extra1
. ds an-extra2
. \}
-. el \
-. ds an-page-string \\n[%]
-. if r X \{\
-. if (\\n[%] > \\n[X]) \{\
-. nr an-page-letter (\\n[%] - \\n[X])
-. ds an-page-string \\n[X]\\n[an-page-letter]
-. \}
-. \}
-. ie \\n[html-or-html-old] \
-. tl ''''
. el \{\
-. ie \\n[D] \{\
-. if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
-. if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]'
+. ie r X \{\
+. if (\\n[%] > \\n[X]) \{\
+. nr an-page-letter (\\n[%] - \\n[X])
+. ds an-page-string \\n[X]\\n[an-page-letter]
+. \}
+. \}
+. el \{\
+. ie \\n[cR] \
+. ds an-page-string "\\*[an-title](\\*[an-section])
+. el \
+. ds an-page-string \\n[%]
. \}
-. el \
-. tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
. \}
+. ie \\n[D] \{\
+. if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
+. if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]'
+. \}
+. el \
+. tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'
. ev
..
.