Mercurial > emacs
comparison src/xfaces.c @ 26601:e23e3120d84f
(set_lface_from_font_name): Fix previous change.
(recompute_basic_faces): Change assert to abort.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 26 Nov 1999 10:14:39 +0000 |
parents | f24bdf26ad39 |
children | f5dded41adcc |
comparison
equal
deleted
inserted
replaced
26600:a31098c759d5 | 26601:e23e3120d84f |
---|---|
688 recompute_basic_faces (f) | 688 recompute_basic_faces (f) |
689 struct frame *f; | 689 struct frame *f; |
690 { | 690 { |
691 if (FRAME_FACE_CACHE (f)) | 691 if (FRAME_FACE_CACHE (f)) |
692 { | 692 { |
693 int realized_p; | |
694 clear_face_cache (0); | 693 clear_face_cache (0); |
695 realized_p = realize_basic_faces (f); | 694 if (!realize_basic_faces (f)) |
696 xassert (realized_p); | 695 abort (); |
697 } | 696 } |
698 } | 697 } |
699 | 698 |
700 | 699 |
701 /* Clear the face caches of all frames. CLEAR_FONTS_P non-zero means | 700 /* Clear the face caches of all frames. CLEAR_FONTS_P non-zero means |
2734 free_font_name_p = have_font_p = 1; | 2733 free_font_name_p = have_font_p = 1; |
2735 } | 2734 } |
2736 else | 2735 else |
2737 { | 2736 { |
2738 font.name = STRDUPA (font_name); | 2737 font.name = STRDUPA (font_name); |
2739 if (!split_font_name (f, &font, 1)) | 2738 if (split_font_name (f, &font, 1)) |
2739 have_font_p = 1; | |
2740 else | |
2740 { | 2741 { |
2741 /* The font name may be something like `6x13'. Make | 2742 /* The font name may be something like `6x13'. Make |
2742 sure we use the full name. */ | 2743 sure we use the full name. */ |
2743 struct font_info *font_info; | 2744 struct font_info *font_info; |
2744 | 2745 |
2745 BLOCK_INPUT; | 2746 BLOCK_INPUT; |
2746 font_info = fs_load_font (f, FRAME_X_FONT_TABLE (f), | 2747 font_info = fs_load_font (f, FRAME_X_FONT_TABLE (f), |
2747 CHARSET_ASCII, font_name, -1); | 2748 CHARSET_ASCII, font_name, -1); |
2748 UNBLOCK_INPUT; | |
2749 | |
2750 if (font_info) | 2749 if (font_info) |
2751 { | 2750 { |
2752 font.name = STRDUPA (font_info->full_name); | 2751 font.name = STRDUPA (font_info->full_name); |
2753 split_font_name (f, &font, 1); | 2752 split_font_name (f, &font, 1); |
2754 have_font_p = 1; | 2753 have_font_p = 1; |
2755 } | 2754 } |
2755 | |
2756 UNBLOCK_INPUT; | |
2756 } | 2757 } |
2757 } | 2758 } |
2758 | 2759 |
2759 /* If FONT_NAME is completely bogus try to use something reasonable | 2760 /* If FONT_NAME is completely bogus try to use something reasonable |
2760 if this function must succeed. Otherwise, give up. */ | 2761 if this function must succeed. Otherwise, give up. */ |