Commit 528e1416 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(set-background-color, set-foreground-color): Call

face-set-after-frame-default, to propagate the new colors to the
frame's parameters alist.
parent 9ca8a5a0
2001-11-03 Eli Zaretskii <eliz@is.elta.co.il>
* 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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment