;; Create frame-local faces
(dolist (frame (frame-list))
(face-spec-set-2 face frame value)
- (when (memq (window-system frame) '(x w32 mac))
+ (when (memq (window-system frame) '(x w32 mac ns))
(setq have-window-system t)))
;; When making a face after frames already exist
(if have-window-system
(string :tag "Font Family"
:help-echo "Font family or fontset alias name."))
+ (:foundry
+ (string :tag "Font Foundry"
+ :help-echo "Font foundry name."))
+
(:width
(choice :tag "Width"
:help-echo "Font width."