Mercurial > hg > xemacs-beta
comparison src/faces.c @ 3676:3ef0aaf3dc34
[xemacs-hg @ 2006-11-12 13:40:04 by aidan]
Prevent a crash if the ASCII charset registries match nothing.
author | aidan |
---|---|
date | Sun, 12 Nov 2006 13:40:09 +0000 |
parents | 98af8a976fc3 |
children | f6f6fc9eb269 |
comparison
equal
deleted
inserted
replaced
3675:0492077a2e85 | 3676:3ef0aaf3dc34 |
---|---|
1160 | 1160 |
1161 bound = 0; | 1161 bound = 0; |
1162 /* Lookup the face again, this time allowing the fallback. If this | 1162 /* Lookup the face again, this time allowing the fallback. If this |
1163 succeeds, it'll give a font intended for the script in question, | 1163 succeeds, it'll give a font intended for the script in question, |
1164 which is preferable to translating to ISO10646-1 and using the | 1164 which is preferable to translating to ISO10646-1 and using the |
1165 fixed-with fallback. */ | 1165 fixed-width fallback. */ |
1166 new_val = face_property_matching_instance (face, Qfont, | 1166 new_val = face_property_matching_instance (face, Qfont, |
1167 charset, domain, | 1167 charset, domain, |
1168 ERROR_ME_DEBUG_WARN, 0, | 1168 ERROR_ME_DEBUG_WARN, 0, |
1169 Qzero, | 1169 Qzero, |
1170 initial); | 1170 initial); |
1838 | 1838 |
1839 static void | 1839 static void |
1840 update_EmacsFrame (Lisp_Object frame, Lisp_Object name) | 1840 update_EmacsFrame (Lisp_Object frame, Lisp_Object name) |
1841 { | 1841 { |
1842 struct frame *frm = XFRAME (frame); | 1842 struct frame *frm = XFRAME (frame); |
1843 | |
1844 if (!FRAME_LIVE_P(frm)) | |
1845 return; | |
1843 | 1846 |
1844 if (EQ (name, Qfont)) | 1847 if (EQ (name, Qfont)) |
1845 MARK_FRAME_SIZE_SLIPPED (frm); | 1848 MARK_FRAME_SIZE_SLIPPED (frm); |
1846 | 1849 |
1847 MAYBE_FRAMEMETH (frm, update_frame_external_traits, (frm, name)); | 1850 MAYBE_FRAMEMETH (frm, update_frame_external_traits, (frm, name)); |