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." ...@@ -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." When called interactively, prompt for the name of the color to use."
(interactive "sColor: ") (interactive "sColor: ")
(modify-frame-parameters (selected-frame) (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) (defun set-foreground-color (color-name)
"Set the foreground color of the selected frame to COLOR. "Set the foreground color of the selected frame to COLOR.
When called interactively, prompt for the name of the color to use." When called interactively, prompt for the name of the color to use."
(interactive "sColor: ") (interactive "sColor: ")
(modify-frame-parameters (selected-frame) (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) (defun set-cursor-color (color-name)
"Set the text cursor color of the selected frame to COLOR. "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