From 1787c22a784282be4b772005ac0e269b7eeb6eee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Dec 1994 20:42:40 +0000 Subject: [PATCH] (set-background-color, set-foreground-color): Call frame-update-face-colors. --- lisp/frame.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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. -- 2.39.5