diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-11-03 15:55:17 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-11-03 15:55:17 +0000 |
| commit | 528e14166495e50bb0ac94d574bd849da96ac33f (patch) | |
| tree | 052d1398e32e25abe0a75275998540345fedc393 /lisp/frame.el | |
| parent | 9ca8a5a0ed3c42ef75d1fca3e457a78edbca1fe6 (diff) | |
| download | emacs-528e14166495e50bb0ac94d574bd849da96ac33f.tar.gz | |
(set-background-color, set-foreground-color): Call
face-set-after-frame-default, to propagate the new colors to the
frame's parameters alist.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 983233414d7..6c42a4981de 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -810,7 +810,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. @@ -818,7 +820,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. |