.
.\"----- Font handling ------------------------------------------------------
.
-.\" .Ff font [stuff more-stuff]
+.\" .Ff font nfont [stuff more-stuff]
.\" Without stuff, changes to font. With stuff, prints stuff in font
.\" and more-stuff in the current font, with no intervening space.
.ie t \{\
. de Ff
-. ie '\\$2'' \f\\$1\c
-. el \&\f\\$1\\$2\fP\\$3
+. ie '\\$3'' \f\\$1\c
+. el \&\f\\$1\\$3\fP\\$4
..
.\}
.el \{\
-.de Ff
-.if !'\\$2'' \\$2\\$3
+. de Ff
+. ie '\\$3'' \f\\$2\c
+. el \&\f\\$2\\$3\fP\\$4
..
.\}
.
.\" Change to appropriate font, or print stuff in chosen font followed
.\" by more-stuff in current font, with no intervening space.
.de R
-.Ff R "\\$1" "\\$2"
+.Ff R R "\\$1" "\\$2"
..
.de B
-.Ff B "\\$1" "\\$2"
+.Ff B B "\\$1" "\\$2"
..
.de I
-.Ff I "\\$1" "\\$2"
+.Ff I I "\\$1" "\\$2"
..
.de P
-.Ff P "\\$1" "\\$2"
+.Ff P P "\\$1" "\\$2"
..
.de C
-.Ff (CR "\\$1" "\\$2"
+.Ff (CR R "\\$1" "\\$2"
..
.de CB
-.Ff (CB "\\$1" "\\$2"
+.Ff (CB B "\\$1" "\\$2"
..
.de CI
-.Ff (CI "\\$1" "\\$2"
+.Ff (CI I "\\$1" "\\$2"
..
.de H
-.Ff (HR "\\$1" "\\$2"
+.Ff (HR R "\\$1" "\\$2"
..
.de HB
-.Ff (HB "\\$1" "\\$2"
+.Ff (HB B "\\$1" "\\$2"
..
.de HI
-.Ff (HI "\\$1" "\\$2"
+.Ff (HI I "\\$1" "\\$2"
..
.
.\"----- Titling ------------------------------------------------------------
.nr ul 0
.de do
.ie t .ds b\\$1 \\$2
-.el .ds b\\$1 \\$3
+.el .ds b\\$1 \fB\\$3\fP
..
.do 0 \(bu o
.do 1 \(em \-