diff options
| author | Richard M. Stallman | 1994-04-22 08:49:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-22 08:49:30 +0000 |
| commit | 4033f46bd79e8ab0aaaf384a9d11841cc9217efe (patch) | |
| tree | 6e0f572ab086c06e124a5d058a6f1f5322404164 | |
| parent | 9d52c8d3696e4adb18e93d2a1c81b456504ab44f (diff) | |
| download | emacs-4033f46bd79e8ab0aaaf384a9d11841cc9217efe.tar.gz emacs-4033f46bd79e8ab0aaaf384a9d11841cc9217efe.zip | |
(set-default-font): Call frame-update-faces.
| -rw-r--r-- | lisp/frame.el | 4 |
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." | |||
| 459 | When called interactively, prompt for the name of the font to use." | 459 | When called interactively, prompt for the name of the font to use." |
| 460 | (interactive "sFont name: ") | 460 | (interactive "sFont name: ") |
| 461 | (modify-frame-parameters (selected-frame) | 461 | (modify-frame-parameters (selected-frame) |
| 462 | (list (cons 'font font-name)))) | 462 | (list (cons 'font font-name))) |
| 463 | ;; Update faces that want a bold or italic version of the default font. | ||
| 464 | (frame-update-faces (selected-frame))) | ||
| 463 | 465 | ||
| 464 | (defun set-background-color (color-name) | 466 | (defun set-background-color (color-name) |
| 465 | "Set the background color of the selected frame to COLOR. | 467 | "Set the background color of the selected frame to COLOR. |