From 8f9edb2e7cb48ec0ab4153a4cca31922c1cc7486 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Sat, 19 Feb 2022 02:19:29 +0000 Subject: [PATCH] * src/haikufns.c (haiku_create_frame): Error if font wasn't found. --- src/haikufns.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/haikufns.c b/src/haikufns.c index 3f60aa807f1..ea42dd0daa6 100644 --- a/src/haikufns.c +++ b/src/haikufns.c @@ -673,6 +673,12 @@ haiku_create_frame (Lisp_Object parms) FRAME_RIF (f)->default_font_parameter (f, parms); + if (!FRAME_FONT (f)) + { + delete_frame (frame, Qnoelisp); + error ("Invalid frame font"); + } + gui_default_parameter (f, parms, Qborder_width, make_fixnum (0), "borderwidth", "BorderWidth", RES_TYPE_NUMBER); gui_default_parameter (f, parms, Qinternal_border_width, make_fixnum (2), @@ -682,9 +688,9 @@ haiku_create_frame (Lisp_Object parms) "childFrameBorderWidth", "childFrameBorderWidth", RES_TYPE_NUMBER); gui_default_parameter (f, parms, Qright_divider_width, make_fixnum (0), - NULL, NULL, RES_TYPE_NUMBER); + NULL, NULL, RES_TYPE_NUMBER); gui_default_parameter (f, parms, Qbottom_divider_width, make_fixnum (0), - NULL, NULL, RES_TYPE_NUMBER); + NULL, NULL, RES_TYPE_NUMBER); gui_default_parameter (f, parms, Qvertical_scroll_bars, Qt, "verticalScrollBars", "VerticalScrollBars", RES_TYPE_SYMBOL); -- 2.39.5