Mercurial > emacs

changeset 10192:dd28f1cd68d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-background-color, set-foreground-color): Call frame-update-face-colors.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Dec 1994 20:42:40 +0000
parents f81679f84f68
children 6efa61f222cb
files lisp/frame.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Tue Dec 20 15:42:57 1994 +0000
+++ b/lisp/frame.el	Tue Dec 20 20:42:40 1994 +0000
@@ -579,14 +579,16 @@
 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.