/[emacs]/emacs/lisp/faces.el
ViewVC logotype

Diff of /emacs/lisp/faces.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.276 by lektu, Wed Mar 5 10:36:51 2003 UTC revision 1.277 by rms, Mon May 19 14:46:06 2003 UTC
# Line 1657  Value is the new frame created." Line 1657  Value is the new frame created."
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)))
# Line 1670  Value is the new frame created." Line 1671  Value is the new frame created."
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)

Legend:
Removed from v.1.276  
changed lines
  Added in v.1.277

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26