# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1004802838 0
# Node ID 377344c6e1f137b365f31c91fa946ec079f1643e
# Parent  4014cfe60f0d3829b950e59835fd38f101c811ad
(set-background-color, set-foreground-color): Call
face-set-after-frame-default, to propagate the new colors to the
frame's parameters alist.

diff -r 4014cfe60f0d -r 377344c6e1f1 lisp/frame.el
--- a/lisp/frame.el	Sat Nov 03 15:50:05 2001 +0000
+++ b/lisp/frame.el	Sat Nov 03 15:53:58 2001 +0000
@@ -810,7 +810,9 @@
 To get the frame's current background color, use `frame-parameters'."
   (interactive (list (facemenu-read-color)))
   (modify-frame-parameters (selected-frame)
-			   (list (cons 'background-color color-name))))
+			   (list (cons 'background-color color-name)))
+  (or window-system
+      (face-set-after-frame-default (selected-frame))))
 
 (defun set-foreground-color (color-name)
   "Set the foreground color of the selected frame to COLOR-NAME.
@@ -818,7 +820,9 @@
 To get the frame's current foreground color, use `frame-parameters'."
   (interactive (list (facemenu-read-color)))
   (modify-frame-parameters (selected-frame)
-			   (list (cons 'foreground-color color-name))))
+			   (list (cons 'foreground-color color-name)))
+  (or window-system
+      (face-set-after-frame-default (selected-frame))))
 
 (defun set-cursor-color (color-name)
   "Set the text cursor color of the selected frame to COLOR-NAME.