]> git.eshelyaron.com Git - emacs.git/commitdiff
(Fx_create_frame): Put all specified parms into f->param_alist
authorRichard M. Stallman <rms@gnu.org>
Thu, 26 Jan 2006 17:49:48 +0000 (17:49 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 26 Jan 2006 17:49:48 +0000 (17:49 +0000)
unless they were cleared out.

src/xfns.c

index 33823b28970f836ba6de52404de3f4e50f86be13..02d525ecd91cfe87de5701421eeb6949e88ac7fa 100644 (file)
@@ -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