From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 26 Jan 2006 17:49:48 +0000 (+0000)
Subject: (Fx_create_frame): Put all specified parms into f->param_alist
X-Git-Tag: emacs-pretest-22.0.90~4574
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fa98fcf92fa168972ced36e38501d63d0e8d6ea;p=emacs.git

(Fx_create_frame): Put all specified parms into f->param_alist
unless they were cleared out.
---

diff --git a/src/xfns.c b/src/xfns.c
index 33823b28970..02d525ecd91 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3008,6 +3008,8 @@ This function is an internal primitive--use `make-frame' instead.  */)
 
   check_x ();
 
+  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;
@@ -3384,6 +3386,12 @@ This function is an internal primitive--use `make-frame' instead.  */)
           || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
     kb->Vdefault_minibuffer_frame = frame;
 
+  /* All remaining specified parameters, which have not been "used"
+     by x_get_arg and friends, now go in the misc. alist of the frame.  */
+  for (tem = parms; !NILP (tem); tem = XCDR (tem))
+    if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
+      f->param_alist = Fcons (XCAR (tem), f->param_alist);
+
   UNGCPRO;
 
   /* Make sure windows on this frame appear in calls to next-window