From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Dec 1994 20:42:40 +0000 (+0000)
Subject: (set-background-color, set-foreground-color):
X-Git-Tag: emacs-19.34~5664
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1787c22a784282be4b772005ac0e269b7eeb6eee;p=emacs.git

(set-background-color, set-foreground-color):
Call frame-update-face-colors.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index b3c599aae77..59d868ee48b 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -579,14 +579,16 @@ When called interactively, prompt for the name of the font to use."
 When called interactively, prompt for the name of the color to use."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
-			   (list (cons 'background-color color-name))))
+			   (list (cons 'background-color color-name)))
+  (frame-update-face-colors (selected-frame)))
 
 (defun set-foreground-color (color-name)
   "Set the foreground color of the selected frame to COLOR.
 When called interactively, prompt for the name of the color to use."
   (interactive "sColor: ")
   (modify-frame-parameters (selected-frame)
-			   (list (cons 'foreground-color color-name))))
+			   (list (cons 'foreground-color color-name)))
+  (frame-update-face-colors (selected-frame)))
 
 (defun set-cursor-color (color-name)
   "Set the text cursor color of the selected frame to COLOR.