From 6704fec12c803525a5c0b89feeaa80d82db9765c Mon Sep 17 00:00:00 2001
From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Wed, 28 Jun 2006 08:30:16 +0000
Subject: [PATCH] (Fx_create_frame): Apply 2006-06-24 change for xfns.c.

---
 src/macfns.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/macfns.c b/src/macfns.c
index 104dcb0896..494d6ec1da 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -2646,8 +2646,7 @@ This function is an internal primitive--use `make-frame' instead.  */)
       error ("Cannot find any usable font");
     UNBLOCK_INPUT;
 
-    x_default_parameter (f, parms, Qfont, font,
-			 "font", "Font", RES_TYPE_STRING);
+    x_set_frame_parameters (f, Fcons (Fcons (Qfont, font), Qnil));
   }
 
   x_default_parameter (f, parms, Qborder_width, make_number (0),
-- 
2.39.2