Commit 312ae771 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(set-face-attribute): Parse "FOUNDRY-FAMILY" here.

(face-x-resources): Add :foundry.
(face-valid-attribute-values): Likewise.
(face-attribute-name-alist): Likewise.
(describe-face): Likewise.
parent fcea6e23
......@@ -2001,25 +2001,17 @@ Value is the new frame created."
"Set frame-local faces of FRAME from face specs and resources.
Initialize colors of certain faces from frame parameters."
(unless inhibit-face-set-after-frame-default
(or (eq (face-attribute 'default :font t) 'unspecified)
(if (face-attribute 'default :font t)
(set-face-attribute 'default frame :font
(face-attribute 'default :font t)))
(or (eq (face-attribute 'default :family t) 'unspecified)
(face-attribute 'default :font t))
(set-face-attribute 'default frame :family
(face-attribute 'default :family t)))
(or (eq (face-attribute 'default :foundry t) 'unspecified)
(set-face-attribute 'default frame :foundry
(face-attribute 'default :foundry t)))
(or (eq (face-attribute 'default :height t) 'unspecified)
(face-attribute 'default :family t))
(set-face-attribute 'default frame :height
(face-attribute 'default :height t)))
(or (eq (face-attribute 'default :slant t) 'unspecified)
(face-attribute 'default :height t))
(set-face-attribute 'default frame :slant
(face-attribute 'default :slant t)))
(or (eq (face-attribute 'default :weight t) 'unspecified)
(face-attribute 'default :slant t))
(set-face-attribute 'default frame :weight
(face-attribute 'default :weight t)))
(or (eq (face-attribute 'default :width t) 'unspecified)
(face-attribute 'default :weight t))
(set-face-attribute 'default frame :width
(face-attribute 'default :width t))))
;; Find attributes that should be initialized from frame parameters.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment