From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 24 Jul 1997 16:59:16 +0000 (+0000)
Subject: (Fx_create_frame): Don't fail to initialize `font'.
X-Git-Tag: emacs-20.1~999
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ee3abaa317a2c964b685296b0ba44af4e8b30c1;p=emacs.git

(Fx_create_frame): Don't fail to initialize `font'.
---

diff --git a/src/xfns.c b/src/xfns.c
index 17e6a64f987..553b32aa716 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3282,8 +3282,8 @@ This function is an internal primitive--use `make-frame' instead.")
   {
     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))