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,27 +2001,19 @@ Value is the new frame created." ...@@ -2001,27 +2001,19 @@ Value is the new frame created."
"Set frame-local faces of FRAME from face specs and resources. "Set frame-local faces of FRAME from face specs and resources.
Initialize colors of certain faces from frame parameters." Initialize colors of certain faces from frame parameters."
(unless inhibit-face-set-after-frame-default (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 (set-face-attribute 'default frame :font
(face-attribute 'default :font t))) (face-attribute 'default :font t))
(or (eq (face-attribute 'default :family t) 'unspecified) (set-face-attribute 'default frame :family
(set-face-attribute 'default frame :family (face-attribute 'default :family t))
(face-attribute 'default :family t))) (set-face-attribute 'default frame :height
(or (eq (face-attribute 'default :foundry t) 'unspecified) (face-attribute 'default :height t))
(set-face-attribute 'default frame :foundry (set-face-attribute 'default frame :slant
(face-attribute 'default :foundry t))) (face-attribute 'default :slant t))
(or (eq (face-attribute 'default :height t) 'unspecified) (set-face-attribute 'default frame :weight
(set-face-attribute 'default frame :height (face-attribute 'default :weight t))
(face-attribute 'default :height t))) (set-face-attribute 'default frame :width
(or (eq (face-attribute 'default :slant t) 'unspecified) (face-attribute 'default :width t))))
(set-face-attribute 'default frame :slant
(face-attribute 'default :slant t)))
(or (eq (face-attribute 'default :weight t) 'unspecified)
(set-face-attribute 'default frame :weight
(face-attribute 'default :weight t)))
(or (eq (face-attribute 'default :width t) 'unspecified)
(set-face-attribute 'default frame :width
(face-attribute 'default :width t))))
;; Find attributes that should be initialized from frame parameters. ;; Find attributes that should be initialized from frame parameters.
(let ((face-params '((foreground-color default :foreground) (let ((face-params '((foreground-color default :foreground)
(background-color default :background) (background-color default :background)
......
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