diff options
| author | Chong Yidong | 2008-07-06 03:51:06 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-07-06 03:51:06 +0000 |
| commit | be22aa971355e15a78d46c60ce285afd474da313 (patch) | |
| tree | a0825b8ae6f3439e1f561614942d1efeb77c763b | |
| parent | fe5d61c40bff7cc1fc6b0ad616bcd28b336d3cd3 (diff) | |
| download | emacs-be22aa971355e15a78d46c60ce285afd474da313.tar.gz emacs-be22aa971355e15a78d46c60ce285afd474da313.zip | |
(set_font_frame_param): Don't try to set the font parameter if it is
still unspecified in the lface.
| -rw-r--r-- | src/xfaces.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/xfaces.c b/src/xfaces.c index 382e1327679..ed802b03f7c 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -3501,11 +3501,14 @@ set_font_frame_param (frame, lface) | |||
| 3501 | Lisp_Object frame, lface; | 3501 | Lisp_Object frame, lface; |
| 3502 | { | 3502 | { |
| 3503 | struct frame *f = XFRAME (frame); | 3503 | struct frame *f = XFRAME (frame); |
| 3504 | Lisp_Object font; | ||
| 3504 | 3505 | ||
| 3505 | if (FRAME_WINDOW_P (f)) | 3506 | if (FRAME_WINDOW_P (f) |
| 3507 | /* Don't do anything if the font is `unspecified'. This can | ||
| 3508 | happen during frame creation. */ | ||
| 3509 | && (font = LFACE_FONT (lface), | ||
| 3510 | ! UNSPECIFIEDP (font))) | ||
| 3506 | { | 3511 | { |
| 3507 | Lisp_Object font = LFACE_FONT (lface); | ||
| 3508 | |||
| 3509 | if (FONT_SPEC_P (font)) | 3512 | if (FONT_SPEC_P (font)) |
| 3510 | { | 3513 | { |
| 3511 | font = font_load_for_lface (f, XVECTOR (lface)->contents, font); | 3514 | font = font_load_for_lface (f, XVECTOR (lface)->contents, font); |