Mercurial > emacs
changeset 40673:377344c6e1f1
(set-background-color, set-foreground-color): Call
face-set-after-frame-default, to propagate the new colors to the
frame's parameters alist.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 03 Nov 2001 15:53:58 +0000 |
| parents | 4014cfe60f0d |
| children | b9566416afd6 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Sat Nov 03 15:50:05 2001 +0000 +++ b/lisp/frame.el Sat Nov 03 15:53:58 2001 +0000 @@ -810,7 +810,9 @@ 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 @@ 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.