(Fx_create_frame): Make a copy of frame parameters

because the original parameters are in pure storage now.
(mac_window): Remove unused params.  Update callers.

2 files changed, 10 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 3be7a188bd7..e29fe0e6650 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2008-05-07  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * macfns.c (Fx_create_frame): Make a copy of frame parameters
+        because the original parameters are in pure storage now.
+        (mac_window): Remove unused params.  Update callers.
+
 2008-05-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * lread.c (substitute_object_recurse): Use lower-level primitives.
diff --git a/src/macfns.c b/src/macfns.c
index 21866876155..f51335cfa1a 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -2153,10 +2153,8 @@ XParseGeometry (string, x, y, width, height)
 /* Create and set up the Mac window for frame F.  */
 
 static void
-mac_window (f, window_prompting, minibuffer_only)
+mac_window (f)
      struct frame *f;
-     long window_prompting;
-     int minibuffer_only;
 {
   BLOCK_INPUT;
 
@@ -2410,6 +2408,8 @@ This function is an internal primitive--use `make-frame' instead.  */)
 
   check_mac ();
 
+  parms = Fcopy_alist (parms);
+
   /* Use this general default value to start with
      until we know if this frame has a specified name.  */
   Vx_resource_name = Vinvocation_name;
@@ -2622,7 +2622,7 @@ This function is an internal primitive--use `make-frame' instead.  */)
   tem = mac_get_arg (parameters, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
   f->no_split = minibuffer_only || EQ (tem, Qt);
 
-  mac_window (f, window_prompting, minibuffer_only);
+  mac_window (f);
   x_icon (f, parameters);
 
   x_make_gc (f);