diff options
Diffstat (limited to 'tmac')
-rw-r--r-- | tmac/doc-common | 2 | ||||
-rw-r--r-- | tmac/doc.tmac | 32 |
2 files changed, 30 insertions, 4 deletions
diff --git a/tmac/doc-common b/tmac/doc-common index 8e788ebd..d19a795f 100644 --- a/tmac/doc-common +++ b/tmac/doc-common @@ -918,6 +918,8 @@ . tm doc-display-indent-stack\n[doc-reg-Rd] == \n[doc-display-indent-stack\n[doc-reg-Rd]] . tm doc-display-ad-stack\n[doc-reg-Rd] == \n[doc-display-ad-stack\n[doc-reg-Rd]] . tm doc-display-fi-stack\n[doc-reg-Rd] == \n[doc-display-fi-stack\n[doc-reg-Rd]] +. tm doc-display-ft-stack\n[doc-reg-Rd] == \n[doc-display-ft-stack\n[doc-reg-Rd]] +. tm doc-display-ps-stack\n[doc-reg-Rd] == \n[doc-display-ps-stack\n[doc-reg-Rd]] . nr doc-reg-Rd +1 . \} . diff --git a/tmac/doc.tmac b/tmac/doc.tmac index 74661939..9b61bdc4 100644 --- a/tmac/doc.tmac +++ b/tmac/doc.tmac @@ -2583,6 +2583,24 @@ .nr doc-display-fi-stack0 0 . . +.\" NS doc-display-ft-stackXXX global register +.\" NS stack of saved fonts +.\" NS +.\" NS limit: +.\" NS doc-display-depth +. +.nr doc-display-ft-stack0 0 +. +. +.\" NS doc-display-ps-stackXXX global register +.\" NS stack of saved font sizes +.\" NS +.\" NS limit: +.\" NS doc-display-depth +. +.nr doc-display-ps-stack0 0 +. +. .\" NS Bd user macro .\" NS begin display .\" NS @@ -2594,6 +2612,8 @@ .\" NS doc-display-depth .\" NS doc-display-ad-stackXXX .\" NS doc-display-fi-stackXXX +.\" NS doc-display-ft-stackXXX +.\" NS doc-display-ps-stackXXX .\" NS doc-display-file .\" NS doc-display-indent-stackXXX .\" NS doc-display-type-stackXXX @@ -2623,8 +2643,8 @@ . . ie "\$1"-literal" \{\ . ds doc-display-type-stack\n[doc-display-depth] literal -. nr doc-curr-font \n[.f] -. nr doc-curr-size \n[.ps] +. nr doc-display-ft-stack\n[doc-display-depth] \n[.f] +. nr doc-display-ps-stack\n[doc-display-depth] \n[.ps] . . ie t \{\ . nop \*[doc-Li-font]\c @@ -2816,8 +2836,8 @@ . \} . . if "\*[doc-display-type-stack\n[doc-display-depth]]"literal" \{\ -. ft \n[doc-curr-font] -. ps \n[doc-curr-size]u +. ft \n[doc-display-ft-stack\n[doc-display-depth]] +. ps \n[doc-display-ps-stack\n[doc-display-depth]]u . \} . . in -\n[doc-display-indent-stack\n[doc-display-depth]]u @@ -3231,6 +3251,8 @@ . nr doc-display-indent-stack\n[doc-reg-dsgv]-saved \n[doc-display-indent-stack\n[doc-reg-dsgv]] . nr doc-display-ad-stack\n[doc-reg-dsgv]-saved \n[doc-display-ad-stack\n[doc-reg-dsgv]] . nr doc-display-fi-stack\n[doc-reg-dsgv]-saved \n[doc-display-fi-stack\n[doc-reg-dsgv]] +. nr doc-display-ft-stack\n[doc-reg-dsgv]-saved \n[doc-display-ft-stack\n[doc-reg-dsgv]] +. nr doc-display-ps-stack\n[doc-reg-dsgv]-saved \n[doc-display-ps-stack\n[doc-reg-dsgv]] . nr doc-reg-dsgv +1 . \} . @@ -3368,6 +3390,8 @@ . nr doc-display-indent-stack\n[doc-reg-drgv] \n[doc-display-indent-stack\n[doc-reg-drgv]-saved] . nr doc-display-ad-stack\n[doc-reg-drgv] \n[doc-display-ad-stack\n[doc-reg-drgv]-saved] . nr doc-display-fi-stack\n[doc-reg-drgv] \n[doc-display-fi-stack\n[doc-reg-drgv]-saved] +. nr doc-display-ft-stack\n[doc-reg-drgv] \n[doc-display-ft-stack\n[doc-reg-drgv]-saved] +. nr doc-display-ps-stack\n[doc-reg-drgv] \n[doc-display-ps-stack\n[doc-reg-drgv]-saved] . nr doc-reg-drgv +1 . \} . |