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
commit4033f46bd79e8ab0aaaf384a9d11841cc9217efe (patch)
tree6e0f572ab086c06e124a5d058a6f1f5322404164 /lisp/frame.el
parent9d52c8d3696e4adb18e93d2a1c81b456504ab44f (diff)
downloademacs-4033f46bd79e8ab0aaaf384a9d11841cc9217efe.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.