From 448bcb402db0a29de6e1dbd266b48d2313585328 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 26 May 2003 19:15:42 +0000 Subject: [PATCH] (x-create-frame-with-faces): Call `face-set-after-frame-default'. (display-supports-face-attributes-p): Doc fix. --- lisp/faces.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 695aaf31a61..ee3a9d78cb4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1489,10 +1489,10 @@ with the default face for display, can be represented in a way that's (1) different in appearance than the default face, and (2) `close in spirit' to what the attributes specify, if not exact. -Point (2) implies that a `:weight black' attribute will be satisified by +Point (2) implies that a `:weight black' attribute will be satisfied by any display that can display bold, and a `:foreground \"yellow\"' as long as it can display a yellowish color, but `:slant italic' will _not_ be -satisified by the tty display code's automatic substitution of a `dim' +satisfied by the tty display code's automatic substitution of a `dim' face for italic." (let ((frame (if (framep display) @@ -1657,8 +1657,7 @@ Value is the new frame created." (progn (x-handle-reverse-video frame parameters) (frame-set-background-mode frame) - ;; No need to call `face-set-after-frame-default' - ;; since x-create-frame does that. + (face-set-after-frame-default frame) (if (or (null frame-list) (null visibility-spec)) (make-frame-visible frame) (modify-frame-parameters frame (list visibility-spec)))