Commit 1787c22a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

Call frame-update-face-colors.
parent bb9dcce1
......@@ -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.
......
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