find-or-create-font-id in font-name-directory<%>
Gets the face name for a font ID, initializing the mapping for the face name if necessary.
Font ID are useful only as mapping indices for
the-font-name-directory.
( -> exact integer
send a-font-name-directory find-or-create-font-id name family)
name : string
family : symbol in '(default decorative roman script swiss modern symbol system)