groff, an-ext.tmac: Font family is not preserved in the macro EX

[Bjarni Ingi Gislason]

                           Groff Bug Report

GROFF VERSION: 1.22.2
'current-groff' from 12th October 2013

MACHINE: laptop i586

OS: Linux 3.2.46-1-rt67-1 (Debian)

COMPILER: gcc (Debian 4.7.2-5) 4.7.2

INPUT FILES:

.TH EXAMPLE 1 "27 October 2013" "Groff Version 1.22.2 and earlier"
Something
.EX
Normal Courier
.B Bold Courier
.EE

COMMAND LINE:
groff  -b -ww -mandoc -Z <input file>

DESCRIPTION OF INCORRECT BEHAVIOUR:

  The current font family (Courier) is not preserved, if the style (B,
I, R) is changed inside the macro pair EX/EE (in 'an-ext.tmac').

  Output:

x T ps
x res 72000 1 1
x init
p1
x font 5 TR
f5
s10000
V48000
H72000
md
DFd
tEXAMPLE(1)
h118740
tGeneral
wh2500
tCommands
wh2500
tManual
h118740
tEXAMPLE(1)
n12000 0
V84000
H72000
tSomething
n12000 0
x font 6 CR
f6
V96000
H72000
tNormal
wh6000
tCourier
n12000 0
x font 38 TB
f38
V108000
H72000
tBold
wh2500
tCourier
n12000 0
f5
V768000
H72000
tGrof
H90630
tf
wh2500
tV
H102570
tersion
wh2500
t1.22.2
wh2500
tand
wh2500
tearlier
h72905
t27
wh2500
tOctober
wh2500
t2013
h195395
t1
n12000 0
x trailer
V792000
x stop

SUGGESTED FIX [optional]:

--- an-ext.tmac 2013-10-27 14:03:05.000000000 +0000
+++ an-ext.tmac.new     2013-10-26 23:51:28.000000000 +0000
@@ -183,15 +183,18 @@
 .
 .\" Start example.
 .de EX
+.  do ds mF \\n[.fam]
 .  nr mE \\n(.f
 .  nf
 .  nh
+.  do fam C
 .  ft CW
 ..
 .
 .
 .\" End example.
 .de EE
+.  do fam \\*(mF
 .  ft \\n(mE
 .  fi
 .  hy \\n(HY