[Emacs-diffs] emacs/src xfns.c

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/02/06 16:49:35

Modified files:
        src            : xfns.c 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/xfns.c?cvsroot=emacs&r1=1.734&r2=1.735

Patches:
Index: xfns.c
===================================================================
RCS file: /sources/emacs/emacs/src/xfns.c,v
retrieving revision 1.734
retrieving revision 1.735
diff -u -b -r1.734 -r1.735
--- xfns.c      16 Jan 2009 15:10:28 -0000      1.734
+++ xfns.c      6 Feb 2009 16:49:35 -0000       1.735
@@ -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