(defconst font-window-system-mappings
'((x . (x-font-create-name x-font-create-object))
- (gtk . (x-font-create-name x-font-create-object))
(tty . (tty-font-create-plist tty-font-create-object)))
"An assoc list mapping device types to a list of translations.
(boundp 'x-font-regexp)
x-font-regexp)
(let
- ((- "[-?]")
+ ((- "[-?]")
(foundry "[^-]*")
- (family "[^-]*")
+ (family "[^-]*")
;(weight #r"\(bold\|demibold\|medium\|black\)")
(weight\? #r"\([^-]*\)")
;(slant #r"\([ior]\)")