* 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].

7 files changed, 228 insertions, 222 deletions

diff --git a/ChangeLog b/ChangeLog
index a1d8a838..168a994b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,10 @@
 2002-03-24  Werner LEMBERG  <wl@gnu.org>
 
-	* tmac/dvi.tmac, tmac/X.tmac: Replace `.char' with `.fchar'.
+	* tmac/dvi.tmac, tmac/X.tmac, tmac/ps.tmac, tmac/html.tmac,
+	tmac/lj4.tmac, tmac/tty.tmac: Replace most `.char' with `.fchar'.
 	* tmac/ec.tmac: Remove `.rchar' calls (no longer necessary since
 	we use `.fchar' in dvi.tmac.
+	* tmac/dvi.tmac: Improve definition of \[Fo] and \[Fc].
 	* tmac/Xps.tmac: Simplify some char definitions.
 	Add definition for \[f/].
 	* man/groff_char.man: Updated for new X.tmac.
diff --git a/tmac/dvi.tmac b/tmac/dvi.tmac
index 1abebf25..d904ce11 100644
--- a/tmac/dvi.tmac
+++ b/tmac/dvi.tmac
@@ -86,8 +86,8 @@ D\v'-.33m'\s0\v'.33m'
 .fchar \[S3] \v'-.2m'\s-33\s+3\v'+.2m'
 .fchar \[Of] \v'-.2m'\s'\En[.s]*6u/10u'\o'_a'\s0\v'.2m'
 .fchar \[Om] \v'-.2m'\s'\En[.s]*6u/10u'\o'_o'\s0\v'.2m'
-.fchar \[Fo] <<
-.fchar \[Fc] >>
+.fchar \[Fo] \v'-.1m'\s-3<\h'-.3m'<\s+3\v'+.1m'
+.fchar \[Fc] \v'-.1m'\s-3>\h'-.3m'>\s+3\v'+.1m'
 .fchar \[bb] |
 .fchar \[Ye] \o'-Y'
 .fchar \[Cs] \o'\[mu]o'
diff --git a/tmac/ec.tmac b/tmac/ec.tmac
index 2104abb4..d8bff62f 100644
--- a/tmac/ec.tmac
+++ b/tmac/ec.tmac
@@ -40,6 +40,16 @@
 .fspecial CWEC CWTC
 .fspecial CWIEC CWITC
 .
+.\" remove definitions of glyphs which are TC fonts
+.rchar \[co] \[rg]
+.rchar \[ct]
+.rchar \[tm]
+.rchar \[aq]
+.rchar \[12] \[14] \[34]
+.rchar \[S1] \[S2] \[S3]
+.rchar \[Of] \[Om]
+.rchar \[Ye] \[Cs]
+.
 .\" an ID register
 .nr ECFONTS 1
 .
diff --git a/tmac/html.tmac b/tmac/html.tmac
index 9681352f..bd4ec423 100644
--- a/tmac/html.tmac
+++ b/tmac/html.tmac
@@ -14,185 +14,185 @@
 .ftr HX HBI
 .ftr NX NBI
 .
-.if !c\(em .char \(em --
-.if !c\(en .char \(en \-
-.if !c\(fi .char \(fi fi
-.if !c\(fl .char \(fl fl
-.if !c\(ff .char \(ff ff
-.if !c\(Fi .char \(Fi ffi
-.if !c\(Fl .char \(Fl ffl
-.if !c\(lq .char \(lq ``
-.if !c\(rq .char \(rq ''
-.if !c\(Bq .char \(bq ,,
-.if !c\(OE .char \(OE OE
-.if !c\(oe .char \(oe oe
-.if !c\(lh .char \(lh <-
-.if !c\(rh .char \(rh ->
-.if !c\(bq .tr \(bq,
-.if !c\(aq .tr \(aq'
+.fchar \[em] --
+.fchar \[en] \-
+.fchar \[fi] fi
+.fchar \[fl] fl
+.fchar \[ff] ff
+.fchar \[Fi] ffi
+.fchar \[Fl] ffl
+.fchar \[lq] ``
+.fchar \[rq] ''
+.fchar \[bq] ,,
+.fchar \[OE] OE
+.fchar \[oe] oe
+.fchar \[lh] <-
+.fchar \[rh] ->
+.fchar \[bq] ,
+.fchar \[aq] '
 .
 .\" Now set any characters defined in devps/S but not in devhtml/S to nul --
 .\" these are generated by eqn but not used by grohtml.  grops generated
 .\" images during the alternative pass.
-.if !c\(*y .tr \(*y
-.if !c\(fa .tr \(fa
-.if !c\(te .tr \(te
-.if !c\(st .tr \(st
-.if !c\(=~ .tr \(=~
-.if !c\(*A .tr \(*A
-.if !c\(*B .tr \(*B
-.if !c\(*X .tr \(*X
-.if !c\(*D .tr \(*D
-.if !c\(*E .tr \(*E
-.if !c\(*F .tr \(*F
-.if !c\(*G .tr \(*G
-.if !c\(*Y .tr \(*Y
-.if !c\(*I .tr \(*I
-.if !c\(+h .tr \(+h
-.if !c\(*K .tr \(*K
-.if !c\(*L .tr \(*L
-.if !c\(*M .tr \(*M
-.if !c\(*N .tr \(*N
-.if !c\(*O .tr \(*O
-.if !c\(*P .tr \(*P
-.if !c\(*H .tr \(*H
-.if !c\(*R .tr \(*R
-.if !c\(*S .tr \(*S
-.if !c\(*T .tr \(*T
-.if !c\(ts .tr \(ts
-.if !c\(*W .tr \(*W
-.if !c\(*C .tr \(*C
-.if !c\(*Q .tr \(*Q
-.if !c\(*Z .tr \(*Z
-.if !c\(3d .tr \(3d
-.if !c\(tf .tr \(tf
-.if !c\(pp .tr \(pp
+.if !c\[*y] .tr \[*y]
+.if !c\[fa] .tr \[fa]
+.if !c\[te] .tr \[te]
+.if !c\[st] .tr \[st]
+.if !c\[=~] .tr \[=~]
+.if !c\[*A] .tr \[*A]
+.if !c\[*B] .tr \[*B]
+.if !c\[*X] .tr \[*X]
+.if !c\[*D] .tr \[*D]
+.if !c\[*E] .tr \[*E]
+.if !c\[*F] .tr \[*F]
+.if !c\[*G] .tr \[*G]
+.if !c\[*Y] .tr \[*Y]
+.if !c\[*I] .tr \[*I]
+.if !c\[+h] .tr \[+h]
+.if !c\[*K] .tr \[*K]
+.if !c\[*L] .tr \[*L]
+.if !c\[*M] .tr \[*M]
+.if !c\[*N] .tr \[*N]
+.if !c\[*O] .tr \[*O]
+.if !c\[*P] .tr \[*P]
+.if !c\[*H] .tr \[*H]
+.if !c\[*R] .tr \[*R]
+.if !c\[*S] .tr \[*S]
+.if !c\[*T] .tr \[*T]
+.if !c\[ts] .tr \[ts]
+.if !c\[*W] .tr \[*W]
+.if !c\[*C] .tr \[*C]
+.if !c\[*Q] .tr \[*Q]
+.if !c\[*Z] .tr \[*Z]
+.if !c\[3d] .tr \[3d]
+.if !c\[tf] .tr \[tf]
+.if !c\[pp] .tr \[pp]
 .if !c\[radicalex] .tr \[radicalex]
-.if !c\(*a .tr \(*a
-.if !c\(*b .tr \(*b
-.if !c\(*x .tr \(*x
-.if !c\(*d .tr \(*d
-.if !c\(*e .tr \(*e
-.if !c\(*f .tr \(*f
-.if !c\(*g .tr \(*g
-.if !c\(*y .tr \(*y
-.if !c\(*i .tr \(*i
-.if !c\(+f .tr \(+f
-.if !c\(*k .tr \(*k
-.if !c\(*l .tr \(*l
-.if !c\(*m .tr \(*m
-.if !c\(*n .tr \(*n
-.if !c\(*o .tr \(*o
-.if !c\(*p .tr \(*p
-.if !c\(*h .tr \(*h
-.if !c\(*r .tr \(*r
-.if !c\(*s .tr \(*s
-.if !c\(*t .tr \(*t
-.if !c\(*u .tr \(*u
-.if !c\(+p .tr \(+p
-.if !c\(*w .tr \(*w
-.if !c\(*c .tr \(*c
-.if !c\(*q .tr \(*q
-.if !c\(*z .tr \(*z
-.if !c\(ap .tr \(ap
-.if !c\(*U .tr \(*U
-.if !c\(fm .tr \(fm
-.if !c\(<= .tr \(<=
-.if !c\(f/ .tr \(f/
-.if !c\(if .tr \(if
-.if !c\(Fn .tr \(Fn
-.if !c\(CL .tr \(CL
-.if !c\(DI .tr \(DI
-.if !c\(HE .tr \(HE
-.if !c\(SP .tr \(SP
-.if !c\(<> .tr \(<>
-.if !c\(<- .tr \(<-
-.if !c\(ua .tr \(ua
+.if !c\[*a] .tr \[*a]
+.if !c\[*b] .tr \[*b]
+.if !c\[*x] .tr \[*x]
+.if !c\[*d] .tr \[*d]
+.if !c\[*e] .tr \[*e]
+.if !c\[*f] .tr \[*f]
+.if !c\[*g] .tr \[*g]
+.if !c\[*y] .tr \[*y]
+.if !c\[*i] .tr \[*i]
+.if !c\[+f] .tr \[+f]
+.if !c\[*k] .tr \[*k]
+.if !c\[*l] .tr \[*l]
+.if !c\[*m] .tr \[*m]
+.if !c\[*n] .tr \[*n]
+.if !c\[*o] .tr \[*o]
+.if !c\[*p] .tr \[*p]
+.if !c\[*h] .tr \[*h]
+.if !c\[*r] .tr \[*r]
+.if !c\[*s] .tr \[*s]
+.if !c\[*t] .tr \[*t]
+.if !c\[*u] .tr \[*u]
+.if !c\[+p] .tr \[+p]
+.if !c\[*w] .tr \[*w]
+.if !c\[*c] .tr \[*c]
+.if !c\[*q] .tr \[*q]
+.if !c\[*z] .tr \[*z]
+.if !c\[ap] .tr \[ap]
+.if !c\[*U] .tr \[*U]
+.if !c\[fm] .tr \[fm]
+.if !c\[<=] .tr \[<=]
+.if !c\[f/] .tr \[f/]
+.if !c\[if] .tr \[if]
+.if !c\[Fn] .tr \[Fn]
+.if !c\[CL] .tr \[CL]
+.if !c\[DI] .tr \[DI]
+.if !c\[HE] .tr \[HE]
+.if !c\[SP] .tr \[SP]
+.if !c\[<>] .tr \[<>]
+.if !c\[<-] .tr \[<-]
+.if !c\[ua] .tr \[ua]
 .\" .if !c\[arrowverttp] .tr \[arrowverttp]
-.if !c\(-> .tr \(->
-.if !c\(da .tr \(da
+.if !c\[->] .tr \[->]
+.if !c\[da] .tr \[da]
 .\" .if !c\[arrowvertbt] .tr \[arrowvertbt]
-.if !c\(de .tr \(de
-.if !c\(sd .tr \(sd
-.if !c\(>= .tr \(>=
-.if !c\(pt .tr \(pt
-.if !c\(pd .tr \(pd
-.if !c\(bu .tr \(bu
-.if !c\(di .tr \(di
-.if !c\(!= .tr \(!=
-.if !c\(== .tr \(==
-.if !c\(~~ .tr \(~~
-.if !c\(~= .tr \(~=
+.if !c\[de] .tr \[de]
+.if !c\[sd] .tr \[sd]
+.if !c\[>=] .tr \[>=]
+.if !c\[pt] .tr \[pt]
+.if !c\[pd] .tr \[pd]
+.if !c\[bu] .tr \[bu]
+.if !c\[di] .tr \[di]
+.if !c\[!=] .tr \[!=]
+.if !c\[==] .tr \[==]
+.if !c\[~~] .tr \[~~]
+.if !c\[~=] .tr \[~=]
 .\" .if !c\[arrowvertex] .tr \[arrowvertex]
-.if !c\(an .tr \(an
-.if !c\(CR .tr \(CR
-.if !c\(Ah .tr \(Ah
-.if !c\(Im .tr \(Im
-.if !c\(Re .tr \(Re
-.if !c\(wp .tr \(wp
-.if !c\(c* .tr \(c*
-.if !c\(c+ .tr \(c+
-.if !c\(es .tr \(es
-.if !c\(ca .tr \(ca
-.if !c\(cu .tr \(cu
-.if !c\(sp .tr \(sp
-.if !c\(ip .tr \(ip
-.if !c\(nb .tr \(nb
-.if !c\(sb .tr \(sb
-.if !c\(ib .tr \(ib
-.if !c\(mo .tr \(mo
-.if !c\(nm .tr \(nm
-.if !c\(/_ .tr \(/_
-.if !c\(gr .tr \(gr
+.if !c\[an] .tr \[an]
+.if !c\[CR] .tr \[CR]
+.if !c\[Ah] .tr \[Ah]
+.if !c\[Im] .tr \[Im]
+.if !c\[Re] .tr \[Re]
+.if !c\[wp] .tr \[wp]
+.if !c\[c*] .tr \[c*]
+.if !c\[c+] .tr \[c+]
+.if !c\[es] .tr \[es]
+.if !c\[ca] .tr \[ca]
+.if !c\[cu] .tr \[cu]
+.if !c\[sp] .tr \[sp]
+.if !c\[ip] .tr \[ip]
+.if !c\[nb] .tr \[nb]
+.if !c\[sb] .tr \[sb]
+.if !c\[ib] .tr \[ib]
+.if !c\[mo] .tr \[mo]
+.if !c\[nm] .tr \[nm]
+.if !c\[/_] .tr \[/_]
+.if !c\[gr] .tr \[gr]
 .\" .if !c\[product] .tr \[product]
-.if !c\(sr .tr \(sr
-.if !c\(md .tr \(md
-.if !c\(no .tr \(no
-.if !c\(AN .tr \(AN
-.if !c\(OR .tr \(OR
-.if !c\(hA .tr \(hA
-.if !c\(lA .tr \(lA
-.if !c\(uA .tr \(uA
-.if !c\(rA .tr \(rA
-.if !c\(dA .tr \(dA
-.if !c\(lz .tr \(lz
-.if !c\(la .tr \(la
+.if !c\[sr] .tr \[sr]
+.if !c\[md] .tr \[md]
+.if !c\[no] .tr \[no]
+.if !c\[AN] .tr \[AN]
+.if !c\[OR] .tr \[OR]
+.if !c\[hA] .tr \[hA]
+.if !c\[lA] .tr \[lA]
+.if !c\[uA] .tr \[uA]
+.if !c\[rA] .tr \[rA]
+.if !c\[dA] .tr \[dA]
+.if !c\[lz] .tr \[lz]
+.if !c\[la] .tr \[la]
 .if !c\[sum] .tr \[sum]
 .\" .if !c\[parenlefttp] .tr \[parenlefttp]
 .\" .if !c\[parenleftex] .tr \[parenleftex]
 .\" .if !c\[parenleftbt] .tr \[parenleftbt]
 .\" .if !c\[bracketlefttp] .tr \[bracketlefttp]
-.if !c\(lc .tr \(lc
+.if !c\[lc] .tr \[lc]
 .\" .if !c\[bracketleftex] .tr \[bracketleftex]
 .\" .if !c\[bracketleftbt] .tr \[bracketleftbt]
-.if !c\(lf .tr \(lf
+.if !c\[lf] .tr \[lf]
 .\" .if !c\[bracelefttp] .tr \[bracelefttp]
-.if !c\(lt .tr \(lt
+.if !c\[lt] .tr \[lt]
 .\" .if !c\[braceleftmid] .tr \[braceleftmid]
-.if !c\(lk .tr \(lk
+.if !c\[lk] .tr \[lk]
 .\" .if !c\[braceleftbt] .tr \[braceleftbt]
-.if !c\(lb .tr \(lb
+.if !c\[lb] .tr \[lb]
 .\" .if !c\[braceex] .tr \[braceex]
 .\" .if !c\[bracerightex] .tr \[bracerightex]
 .\" .if !c\[braceleftex] .tr \[braceleftex]
 .\" .if !c\[barex] .tr \[barex]
-.if !c\(bv .tr \(bv
-.if !c\(ra .tr \(ra
-.if !c\(is .tr \(is
+.if !c\[bv] .tr \[bv]
+.if !c\[ra] .tr \[ra]
+.if !c\[is] .tr \[is]
 .\" .if !c\[parenrighttp] .tr \[parenrighttp]
 .\" .if !c\[parenrightex] .tr \[parenrightex]
 .\" .if !c\[parenrightbt] .tr \[parenrightbt]
 .\" .if !c\[bracketrighttp] .tr \[bracketrighttp]
-.if !c\(rc .tr \(rc
+.if !c\[rc] .tr \[rc]
 .\" .if !c\[bracketrightex] .tr \[bracketrightex]
 .\" .if !c\[bracketrightbt] .tr \[bracketrightbt]
-.if !c\(rf .tr \(rf
+.if !c\[rf] .tr \[rf]
 .\" .if !c\[bracerighttp] .tr \[bracerighttp]
-.if !c\(rt .tr \(rt
+.if !c\[rt] .tr \[rt]
 .\" .if !c\[bracerightmid] .tr \[bracerightmid]
-.if !c\(rk .tr \(rk
+.if !c\[rk] .tr \[rk]
 .\" .if !c\[bracerightbt] .tr \[bracerightbt]
-.if !c\(rb .tr \(rb
+.if !c\[rb] .tr \[rb]
 .
 .\" now turn off all headers and footers for ms, me and mm macro sets
 .if d EF .EF ''''
@@ -210,7 +210,7 @@
 .nr HY 0
 .
 .\" avoid line breaks after hyphen-like characters.
-.cflags 0 -\(hy\(em\(en\[shc]
+.cflags 0 -\[hy]\[em]\[en]\[shc]
 .
 .pl 99999
 .
diff --git a/tmac/lj4.tmac b/tmac/lj4.tmac
index 44f097ca..524e9350 100644
--- a/tmac/lj4.tmac
+++ b/tmac/lj4.tmac
@@ -14,12 +14,12 @@
 .ftr HO UI
 .ftr HX UBI
 .
-.\" This is designed so that \(ul, \(rn and \(br form corners.
-.if !c\[br] .char \[br] \Z'\v'.25m'\D'R .04m -1m''
-.if !c\[ru] .char \[ru] \Z'\v'-.02m'\D'R .54m .04m''\h'.5m'
-.if !c\[rn] .char \[rn] \Z'\v'-.77m'\D'R .54m .04m''\h'.5m'
-.if !c\[ul] .char \[ul] \Z'\v'.23m'\D'R .54m .04m''\h'.5m'
+.\" This is designed so that \[ul], \[rn], and \[br] form corners.
+.fchar \[br] \Z'\v'.25m'\D'R .04m -1m''
+.fchar \[ru] \Z'\v'-.02m'\D'R .54m .04m''\h'.5m'
+.fchar \[rn] \Z'\v'-.77m'\D'R .54m .04m''\h'.5m'
+.fchar \[ul] \Z'\v'.23m'\D'R .54m .04m''\h'.5m'
 .
-.cp \n(_C
+.cp \n[_C]
 .
 .do mso latin1.tmac
diff --git a/tmac/ps.tmac b/tmac/ps.tmac
index 36c67b94..01868ce5 100644
--- a/tmac/ps.tmac
+++ b/tmac/ps.tmac
@@ -24,10 +24,10 @@
 .ftr ZI ZCMI
 .ftr C CR
 .
-.cflags 8 \(an
-.char \[radicalex] \h'-\w'\(sr'u'\[radicalex]\h'\w'\(sr'u'
-.char \(mo \h'.08m'\(mo\h'-.08m'
-.char \(nm \h'.08m'\(nm\h'-.08m'
+.cflags 8 \[an]
+.char \[radicalex] \h'-\w'\[sr]'u'\[radicalex]\h'\w'\[sr]'u'
+.char \[mo] \h'.08m'\[mo]\h'-.08m'
+.char \[nm] \h'.08m'\[nm]\h'-.08m'
 .char \[parenlefttp] \[parenlefttp]\h'.016m'
 .char \[parenleftbt] \[parenleftbt]\h'.016m'
 .char \[parenleftex] \[parenleftex]\h'.016m'
@@ -35,22 +35,20 @@
 .char \[parenrightbt] \[parenrightbt]\h'.016m'
 .char \[parenrightex] \[parenrightex]\h'.016m'
 .
-.if !c\[va] .char \[va] \o'\[ua]\[da]'
-.if !c\[ci] \
-.  char \[ci] \v'-.25m'\h'.05m'\D'c .5m'\h'.05m'\v'.25m'
-.if !c\[sq] \
-.  char \[sq] \h'.05m'\D'l .5m 0'\D'l 0 -.5m'\D'l -.5m 0'\D'l 0 .5m'\h'.55m'
-.if !c\[ru] .char \[ru] \D'l .5m 0'
-.if !c\[ul] .char \[ul] \v'.25m'\D'l .5m 0'\v'-.25m'
-.if !c\[br] .char \[br] \Z'\v'.25m'\D'l 0 -1m''
-.if !c\[rn] .char \[rn] \v'-.75m'\D'l .5m 0'\v'.75m'
-.if !c\[or] .char \[or] \h'.1m'\Z'\D'l 0 -.675m''\h'.1m'
-.if !c\[Fi] .char \[Fi] ffi
-.if !c\[Fl] .char \[Fl] ffl
-.if !c\[ff] .char \[ff] ff
-.if !c\[ij] .char \[ij] ij
-.if !c\[IJ] .char \[IJ] IJ
-.if !c\[tm] .char \[tm] \s-3\v'-.3m'TM\v'+.3m'\s+3
+.fchar \[va] \o'\[ua]\[da]'
+.fchar \[ci] \v'-.25m'\h'.05m'\D'c .5m'\h'.05m'\v'.25m'
+.fchar \[sq] \h'.05m'\D'l .5m 0'\D'l 0 -.5m'\D'l -.5m 0'\D'l 0 .5m'\h'.55m'
+.fchar \[ru] \D'l .5m 0'
+.fchar \[ul] \v'.25m'\D'l .5m 0'\v'-.25m'
+.fchar \[br] \Z'\v'.25m'\D'l 0 -1m''
+.fchar \[rn] \v'-.75m'\D'l .5m 0'\v'.75m'
+.fchar \[or] \h'.1m'\Z'\D'l 0 -.675m''\h'.1m'
+.fchar \[Fi] ffi
+.fchar \[Fl] ffl
+.fchar \[ff] ff
+.fchar \[ij] ij
+.fchar \[IJ] IJ
+.fchar \[tm] \s-3\v'-.3m'TM\v'+.3m'\s+3
 .
 .\" pic tests this register to see whether it should use \X'ps:...'
 .nr 0p 1
@@ -604,7 +602,7 @@
 .defcolor yellow3 rgb #cdcd00
 .defcolor yellow4 rgb #8b8b00
 .
-.cp \n(_C
+.cp \n[_C]
 .
 .if !\n(.C \
 .  mso pspic.tmac
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