diff options
Diffstat (limited to 'tmac')
| -rw-r--r-- | tmac/doc-common | 13 | ||||
| -rw-r--r-- | tmac/doc.tmac | 4 |
2 files changed, 15 insertions, 2 deletions
diff --git a/tmac/doc-common b/tmac/doc-common index 9e1a81a2..5730ce65 100644 --- a/tmac/doc-common +++ b/tmac/doc-common @@ -522,12 +522,25 @@ . .\" NS doc-header macro .\" NS print page header +.\" NS +.\" NS local variables: +.\" NS doc-reg-dh +.\" NS doc-reg-dh1 . .de doc-header . ev doc-env-dh . doc-setup-page-layout . if !\n[cR] \ ' sp \n[doc-header-space]u +. nr doc-reg-dh \w'\*[doc-caption-font]\*[doc-header-string]\f[P]' +. nr doc-reg-dh1 \w'\*[doc-caption-font2]\*[doc-volume]\f[P]' +. if (\n[doc-reg-dh] + \n[doc-reg-dh1] + \n[doc-reg-dh] >= \n[.lt]) \{\ +. while (\n[doc-reg-dh] + \n[doc-reg-dh1] + \n[doc-reg-dh] >= \n[.lt]) \{\ +. substring doc-header-string 1 -1 +. nr doc-reg-dh \w'\*[doc-caption-font]\*[doc-header-string]\|.\|.\|.\f[P]' +. \} +. as doc-header-string "\|.\|.\|. +. \} . tl \*[doc-caption-font]\*[doc-header-string]\f[P]\*[doc-caption-font2]\*[doc-volume]\f[P]\*[doc-caption-font]\*[doc-header-string]\f[P] ' sp \n[doc-header-space]u . ev diff --git a/tmac/doc.tmac b/tmac/doc.tmac index 2814aa9b..d5a4c9c2 100644 --- a/tmac/doc.tmac +++ b/tmac/doc.tmac @@ -3079,7 +3079,7 @@ . ds doc-tag-width-stack\n[doc-list-depth] TagwidtH . . ds doc-str-dBla "\*[doc-arg\n[doc-arg-ptr]] -. substring doc-str-dBla 1 2 +. substring doc-str-dBla 1 1 . ie .\*[doc-str-dBla] \{\ . ds doc-str-dBla "\*[doc-arg\n[doc-arg-ptr]] . substring doc-str-dBla 2 @@ -3205,7 +3205,7 @@ . ie "\*[doc-list-type-stack\n[doc-list-depth]]"column-list" \{\ . nr doc-num-columns +1 . ds doc-str-dBla \*[doc-arg\n[doc-arg-ptr]] -. substring doc-str-dBla 1 2 +. substring doc-str-dBla 1 1 . ie .\*[doc-str-dBla] \{\ . ds doc-str-dBla "\*[doc-arg\n[doc-arg-ptr]] . substring doc-str-dBla 2 |