# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 970062561 0
# Node ID 097787793e68abb4b486e0afa9869ced653eecf8
# Parent  c402c0a86a01a7ddde184827b58a6967fefda02d
(set-frame-font): Remove call to obsolete function
frame-update-faces.
(set-foreground-color, set-background-color): Likewise for
frame-update-face-colors.

diff -r c402c0a86a01 -r 097787793e68 lisp/frame.el
--- a/lisp/frame.el	Wed Sep 27 13:42:31 2000 +0000
+++ b/lisp/frame.el	Wed Sep 27 13:49:21 2000 +0000
@@ -715,8 +715,6 @@
 			       (x-list-fonts "*" nil (selected-frame)))))))
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'font font-name)))
-  ;; Update faces that want a bold or italic version of the default font.
-  (frame-update-faces (selected-frame))
   (run-hooks 'after-setting-font-hooks))
 
 (defun set-background-color (color-name)
@@ -725,8 +723,7 @@
 To get the frame's current background color, use `frame-parameters'."
   (interactive (list (facemenu-read-color)))
   (modify-frame-parameters (selected-frame)
-			   (list (cons 'background-color color-name)))
-  (frame-update-face-colors (selected-frame)))
+			   (list (cons 'background-color color-name))))
 
 (defun set-foreground-color (color-name)
   "Set the foreground color of the selected frame to COLOR-NAME.
@@ -734,8 +731,7 @@
 To get the frame's current foreground color, use `frame-parameters'."
   (interactive (list (facemenu-read-color)))
   (modify-frame-parameters (selected-frame)
-			   (list (cons 'foreground-color color-name)))
-  (frame-update-face-colors (selected-frame)))
+			   (list (cons 'foreground-color color-name))))
 
 (defun set-cursor-color (color-name)
   "Set the text cursor color of the selected frame to COLOR-NAME.