From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Wed, 28 Jun 2006 08:30:16 +0000 (+0000)
Subject: (Fx_create_frame): Apply 2006-06-24 change for xfns.c.
X-Git-Tag: emacs-pretest-22.0.90~1815
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/6704fec12c803525a5c0b89feeaa80d82db9765c

(Fx_create_frame): Apply 2006-06-24 change for xfns.c.
---

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),