1657 |
(progn |
(progn |
1658 |
(x-handle-reverse-video frame parameters) |
(x-handle-reverse-video frame parameters) |
1659 |
(frame-set-background-mode frame) |
(frame-set-background-mode frame) |
1660 |
(face-set-after-frame-default frame) |
;; No need to call `face-set-after-frame-default' |
1661 |
|
;; since x-create-frame does that. |
1662 |
(if (or (null frame-list) (null visibility-spec)) |
(if (or (null frame-list) (null visibility-spec)) |
1663 |
(make-frame-visible frame) |
(make-frame-visible frame) |
1664 |
(modify-frame-parameters frame (list visibility-spec))) |
(modify-frame-parameters frame (list visibility-spec))) |
1671 |
(defun face-set-after-frame-default (frame) |
(defun face-set-after-frame-default (frame) |
1672 |
"Set frame-local faces of FRAME from face specs and resources. |
"Set frame-local faces of FRAME from face specs and resources. |
1673 |
Initialize colors of certain faces from frame parameters." |
Initialize colors of certain faces from frame parameters." |
1674 |
;; Don't let frame creation fail because of an invalid face spec. |
(if (face-attribute 'default :font t) |
1675 |
|
(set-face-attribute 'default frame :font |
1676 |
|
(face-attribute 'default :font t)) |
1677 |
|
(set-face-attribute 'default frame :family |
1678 |
|
(face-attribute 'default :family t)) |
1679 |
|
(set-face-attribute 'default frame :height |
1680 |
|
(face-attribute 'default :height t)) |
1681 |
|
(set-face-attribute 'default frame :slant |
1682 |
|
(face-attribute 'default :slant t)) |
1683 |
|
(set-face-attribute 'default frame :weight |
1684 |
|
(face-attribute 'default :weight t)) |
1685 |
|
(set-face-attribute 'default frame :width |
1686 |
|
(face-attribute 'default :width t))) |
1687 |
(dolist (face (face-list)) |
(dolist (face (face-list)) |
1688 |
|
;; Don't let frame creation fail because of an invalid face spec. |
1689 |
(condition-case () |
(condition-case () |
1690 |
(when (not (equal face 'default)) |
(when (not (equal face 'default)) |
1691 |
(face-spec-set face (face-user-default-spec face) frame) |
(face-spec-set face (face-user-default-spec face) frame) |