summaryrefslogtreecommitdiff
path: root/lisp/frame.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-04-22 08:49:30 +0000
committerRichard M. Stallman <rms@gnu.org>1994-04-22 08:49:30 +0000
commitca2a10a27699b31bdd91620a06e9f7fdc166c0a6 (patch)
treecae4410dcf2ef1d0de617a5b527bfe3d88b3967e /lisp/frame.el
parent03e8f7c6befc1229e120daa87034d94563be9ddd (diff)
downloademacs-ca2a10a27699b31bdd91620a06e9f7fdc166c0a6.tar.gz
(set-default-font): Call frame-update-faces.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r--lisp/frame.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index 9ef36acf308..1083037b015 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -459,7 +459,9 @@ If FRAME is omitted, describe the currently selected frame."
When called interactively, prompt for the name of the font to use."
(interactive "sFont name: ")
(modify-frame-parameters (selected-frame)
- (list (cons 'font font-name))))
+ (list (cons 'font font-name)))
+ ;; Update faces that want a bold or italic version of the default font.
+ (frame-update-faces (selected-frame)))
(defun set-background-color (color-name)
"Set the background color of the selected frame to COLOR.