From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 7 May 2008 06:01:08 +0000 (+0000)
Subject: (Fx_create_frame): Make a copy of frame parameters
X-Git-Tag: emacs-pretest-23.0.90~5751
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a1113949ef61a8e9502f751d355a098920419ac;p=emacs.git

(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.
---

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