# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869763556 0
# Node ID 386d6819190765a0f0038d05194892a7ca8f4b90
# Parent  84b78d90cd453a551c8919ba22071fcdd63adb34
(Fx_create_frame): Don't fail to initialize `font'.

diff -r 84b78d90cd45 -r 386d68191907 src/xfns.c
--- a/src/xfns.c	Thu Jul 24 16:58:05 1997 +0000
+++ b/src/xfns.c	Thu Jul 24 16:59:16 1997 +0000
@@ -3282,8 +3282,8 @@
   {
     Lisp_Object font;
 
-    if (! STRINGP (font))
-      font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", string);
+    font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", string);
+
     BLOCK_INPUT;
     /* First, try whatever font the caller has specified.  */
     if (STRINGP (font))