From 62d168d8b3dedb5b27a64639d48a82c0176ebb22 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 6 Feb 2009 16:49:35 +0000
Subject: [PATCH] (Fx_create_frame): Signal an error if no font is found
 (Bug#2147).

---
 src/xfns.c | 5 +++++
 1 file changed, 5 insertions(+)

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
-- 
2.39.5