diff options
| author | Richard M. Stallman | 1994-12-20 20:42:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-20 20:42:40 +0000 |
| commit | 1787c22a784282be4b772005ac0e269b7eeb6eee (patch) | |
| tree | 0d72b240d4516a558d4b4a80daeea051de0c9319 | |
| parent | bb9dcce1b10ce4270132742257dab11f32b90a95 (diff) | |
| download | emacs-1787c22a784282be4b772005ac0e269b7eeb6eee.tar.gz emacs-1787c22a784282be4b772005ac0e269b7eeb6eee.zip | |
(set-background-color, set-foreground-color):
Call frame-update-face-colors.
| -rw-r--r-- | lisp/frame.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index b3c599aae77..59d868ee48b 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -579,14 +579,16 @@ When called interactively, prompt for the name of the font to use." | |||
| 579 | When called interactively, prompt for the name of the color to use." | 579 | When called interactively, prompt for the name of the color to use." |
| 580 | (interactive "sColor: ") | 580 | (interactive "sColor: ") |
| 581 | (modify-frame-parameters (selected-frame) | 581 | (modify-frame-parameters (selected-frame) |
| 582 | (list (cons 'background-color color-name)))) | 582 | (list (cons 'background-color color-name))) |
| 583 | (frame-update-face-colors (selected-frame))) | ||
| 583 | 584 | ||
| 584 | (defun set-foreground-color (color-name) | 585 | (defun set-foreground-color (color-name) |
| 585 | "Set the foreground color of the selected frame to COLOR. | 586 | "Set the foreground color of the selected frame to COLOR. |
| 586 | When called interactively, prompt for the name of the color to use." | 587 | When called interactively, prompt for the name of the color to use." |
| 587 | (interactive "sColor: ") | 588 | (interactive "sColor: ") |
| 588 | (modify-frame-parameters (selected-frame) | 589 | (modify-frame-parameters (selected-frame) |
| 589 | (list (cons 'foreground-color color-name)))) | 590 | (list (cons 'foreground-color color-name))) |
| 591 | (frame-update-face-colors (selected-frame))) | ||
| 590 | 592 | ||
| 591 | (defun set-cursor-color (color-name) | 593 | (defun set-cursor-color (color-name) |
| 592 | "Set the text cursor color of the selected frame to COLOR. | 594 | "Set the text cursor color of the selected frame to COLOR. |