find-family-default-font-id in font-name-directory<%>
Gets the font ID representing the default font for a family. See
font% for information about font families.
( -> exact integer
send a-font-name-directory find-family-default-font-id family)
family : symbol in '(default decorative roman script swiss modern symbol system)