Commit 6817eab4 authored by Jim Blandy's avatar Jim Blandy
Browse files

* xfns.c (Fx_create_frame): Block input around call to

	x_new_font.  Test if the return value is a string, not if it's
	nil; x_new_font can return things besides nil and strings, to
	indicate error conditions.
parent 431e6a26
......@@ -1754,8 +1754,10 @@ be shared by the new frame.")
Lisp_Object font;
/* Try out a font which we know has bold and italic variations. */
BLOCK_INPUT;
font = x_new_font (f, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
if (NILP (font))
UNBLOCK_INPUT;
if (! STRINGP (font))
font = build_string ("-*-fixed-*-*-*-*-*-120-*-*-c-*-iso8859-1");
x_default_parameter (f, parms, Qfont, font,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment