# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1053976542 0
# Node ID e21b4eb91135bd9ef69fda61f73d912267d6b25b
# Parent  bae989c94b95f6c3dad0ff874f76934d2b666de0
(x-create-frame-with-faces): Call `face-set-after-frame-default'.
(display-supports-face-attributes-p): Doc fix.

diff -r bae989c94b95 -r e21b4eb91135 lisp/faces.el
--- a/lisp/faces.el	Mon May 26 18:02:24 2003 +0000
+++ b/lisp/faces.el	Mon May 26 19:15:42 2003 +0000
@@ -1489,10 +1489,10 @@
  (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 @@
 	(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)))