Sorry, some debug code crept into my test function.

The first call to `propertize' was:

 (propertize str 'font-lock-face
        `(:font ,fs :weight medium))

but should be:

 (propertize str 'font-lock-face
        `(:family ,ff :weight medium))

--
					Greg A. Woods <gwoods@acm.org>

Kelowna, BC     +1 250 762-7675           RoboHack <woods@robohack.ca>
Planix, Inc. <woods@planix.com>     Avoncote Farms <woods@avoncote.ca>