(set-background-color, set-foreground-color): Call

face-set-after-frame-default, to propagate the new colors to the
frame's parameters alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2cc6cce8e79fc27b94b4ec854ed04d9cab30d108..1fcf6bbb16146e275d1ba2a70efd30ad589650eb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-11-03  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * frame.el (set-background-color, set-foreground-color): Call
+       face-set-after-frame-default, to propagate the new colors to the
+       frame's parameters alist.
+
        * calendar/timeclock.el (timeclock-out): Signal an error if
        timeclock-last-event is nil.
 

diff --git a/lisp/frame.el b/lisp/frame.el
index ffce3a831483e2638264f261f53ba7ef9001764c..ea4aa65a0c4270873760acca618ec25d343ec117 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -794,7 +794,9 @@ When called interactively, prompt for the name of the color to use.
 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.
@@ -802,7 +804,9 @@ When called interactively, prompt for the name of the color to use.
 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.