diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-20 20:42:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-20 20:42:40 +0000 |
| commit | 2fb103eeec126459dd59f656203864c6c35b26d9 (patch) | |
| tree | ac8e51b0335dd165fcf79ae1a42d70b333edb3af /lisp/frame.el | |
| parent | bd6e7f85f93614bec7366da7ee6424d675a7ebcd (diff) | |
| download | emacs-2fb103eeec126459dd59f656203864c6c35b26d9.tar.gz | |
(set-background-color, set-foreground-color):
Call frame-update-face-colors.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 6 |
1 files 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. |