Mercurial > emacs
changeset 31939:097787793e68
(set-frame-font): Remove call to obsolete function
frame-update-faces.
(set-foreground-color, set-background-color): Likewise for
frame-update-face-colors.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 27 Sep 2000 13:49:21 +0000 |
| parents | c402c0a86a01 |
| children | d69d99161d39 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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.