(Fx_create_frame): Signal an error if no font is found (Bug#2147).

1 files changed, 5 insertions, 0 deletions

diff --git a/src/xfns.c b/src/xfns.c
index 4be3d1df664..f1df3c27d0d 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3307,6 +3307,11 @@ This function is an internal primitive--use `make-frame' instead.  */)
   /* 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