* tmac/ps.tmac, tmac/html.tmac,

tmac/lj4.tmac, tmac/tty.tmac: Replace most `.char' with `.fchar'.
* tmac/dvi.tmac: Improve definition of \[Fo] and \[Fc].

1 files changed, 40 insertions, 44 deletions

diff --git a/tmac/tty.tmac b/tmac/tty.tmac
index 2fde64e0..119e4b0b 100644
--- a/tmac/tty.tmac
+++ b/tmac/tty.tmac
@@ -13,50 +13,46 @@
 .if c\[shc] \
 .  shc \[shc]
 .
-.de tty-char
-.  if !c\\$1 \
-.    char \\$1 "\\$2
-..
-.
-.ie c\(pc \
-.  tr \(bu\(pc
+.ie c\[pc] \
+.  tr \[bu]\[pc]
 .el
-.  if c\(md \
-.    tr \(bu\(md
-.tty-char \(bu \z+o
-.tty-char \(14 1/4
-.tty-char \(12 1/2
-.tty-char \(34 3/4
-.tty-char \(ff ff
-.tty-char \(fi fi
-.tty-char \(fl fl
-.tty-char \(Fi ffi
-.tty-char \(Fl ffl
-.tty-char \(<- <-
-.tty-char \(-> ->
-.tty-char \(<> <->
-.tty-char \(em --
-.tty-char \(+- +-
-.tty-char \(co (C)
-.tty-char \(<= <=
-.tty-char \(>= >=
-.tty-char \(!= !=
-.tty-char \(== ==
-.tty-char \(~= ~=
-.tty-char \(sq []
-.tty-char \(lh <=
-.tty-char \(rh =>
-.tty-char \(lA <=
-.tty-char \(rA =>
-.tty-char \(hA <=>
-.tty-char \(rg (R)
-.tty-char \(OE OE
-.tty-char \(oe oe
-.tty-char \(AE AE
-.tty-char \(ae ae
-.tty-char \(an -
-.tty-char \(eu EUR
-.tty-char \(Eu EUR
+.  if c\[md] \
+.    tr \[bu]\[md]
+.
+.fchar \[bu] \z+o
+.fchar \[14] 1/4
+.fchar \[12] 1/2
+.fchar \[34] 3/4
+.fchar \[ff] ff
+.fchar \[fi] fi
+.fchar \[fl] fl
+.fchar \[Fi] ffi
+.fchar \[Fl] ffl
+.fchar \[<-] <-
+.fchar \[->] ->
+.fchar \[<>] <->
+.fchar \[em] --
+.fchar \[+-] +-
+.fchar \[co] (C)
+.fchar \[<=] <=
+.fchar \[>=] >=
+.fchar \[!=] !=
+.fchar \[==] ==
+.fchar \[~=] ~=
+.fchar \[sq] []
+.fchar \[lh] <=
+.fchar \[rh] =>
+.fchar \[lA] <=
+.fchar \[rA] =>
+.fchar \[hA] <=>
+.fchar \[rg] (R)
+.fchar \[OE] OE
+.fchar \[oe] oe
+.fchar \[AE] AE
+.fchar \[ae] ae
+.fchar \[an] -
+.fchar \[eu] EUR
+.fchar \[Eu] EUR
 .
 .\" color definitions
 .defcolor black rgb #000000
@@ -68,7 +64,7 @@
 .defcolor cyan rgb #00ffff
 .defcolor white rgb #ffffff
 .
-.cp \n(_C
+.cp \n[_C]
 .
 .ie '\*(.T'cp1047' \
 .  do mso cp1047.tmac