# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1233938975 0
# Node ID 06bbdc2cfd6faa4ea0ff5a76a658faa6c7ae7daf
# Parent  0834b59ed6003bea09f34780eb471af48aa39689
(Fx_create_frame): Signal an error if no font is found (Bug#2147).

diff -r 0834b59ed600 -r 06bbdc2cfd6f src/xfns.c
--- a/src/xfns.c	Fri Feb 06 16:48:46 2009 +0000
+++ b/src/xfns.c	Fri Feb 06 16:49:35 2009 +0000
@@ -3307,6 +3307,11 @@
   /* Extract the window parameters from the supplied values
      that are needed to determine window geometry.  */
   x_default_font_parameter (f, parms);
+  if (!FRAME_FONT (f))
+    {
+      delete_frame (frame, Qnoelisp);
+      error ("Invalid frame font");
+    }
 
 #ifdef USE_LUCID
   /* Prevent lwlib/xlwmenu.c from crashing because of a bug