From: Eli Zaretskii Date: Sat, 3 Nov 2001 15:58:15 +0000 (+0000) Subject: (set-background-color, set-foreground-color): Call X-Git-Tag: emacs-21.2~370 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6bf6869dc6545501b182345360a0feba34016e3;p=emacs.git (set-background-color, set-foreground-color): Call face-set-after-frame-default, to propagate the new colors to the frame's parameters alist. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2cc6cce8e79..1fcf6bbb161 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-11-03 Eli Zaretskii + * frame.el (set-background-color, set-foreground-color): Call + face-set-after-frame-default, to propagate the new colors to the + frame's parameters alist. + * calendar/timeclock.el (timeclock-out): Signal an error if timeclock-last-event is nil. diff --git a/lisp/frame.el b/lisp/frame.el index ffce3a83148..ea4aa65a0c4 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -794,7 +794,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. @@ -802,7 +804,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.