mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

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

Browse Source 
Call frame-update-face-colors.
This commit is contained in:
Richard M. Stallman 1994-12-20 20:42:40 +00:00
parent bb9dcce1b1
commit 1787c22a78
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/frame.el
View File

@ -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.