aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2006-01-26 17:49:48 +0000
committerRichard M. Stallman2006-01-26 17:49:48 +0000
commit5fa98fcf92fa168972ced36e38501d63d0e8d6ea (patch)
treed5da377ae8384299e0ce304ae4b10ec423712041
parentd00368cf268ab3e020f6e85121781ff069068057 (diff)
downloademacs-5fa98fcf92fa168972ced36e38501d63d0e8d6ea.tar.gz
emacs-5fa98fcf92fa168972ced36e38501d63d0e8d6ea.zip
(Fx_create_frame): Put all specified parms into f->param_alist
unless they were cleared out.
-rw-r--r--src/xfns.c8
1 files changed, 8 insertions, 0 deletions
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. */)
3008 3008
3009 check_x (); 3009 check_x ();
3010 3010
3011 parms = Fcopy_alist (parms);
3012
3011 /* Use this general default value to start with 3013 /* Use this general default value to start with
3012 until we know if this frame has a specified name. */ 3014 until we know if this frame has a specified name. */
3013 Vx_resource_name = Vinvocation_name; 3015 Vx_resource_name = Vinvocation_name;
@@ -3384,6 +3386,12 @@ This function is an internal primitive--use `make-frame' instead. */)
3384 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame)))) 3386 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
3385 kb->Vdefault_minibuffer_frame = frame; 3387 kb->Vdefault_minibuffer_frame = frame;
3386 3388
3389 /* All remaining specified parameters, which have not been "used"
3390 by x_get_arg and friends, now go in the misc. alist of the frame. */
3391 for (tem = parms; !NILP (tem); tem = XCDR (tem))
3392 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
3393 f->param_alist = Fcons (XCAR (tem), f->param_alist);
3394
3387 UNGCPRO; 3395 UNGCPRO;
3388 3396
3389 /* Make sure windows on this frame appear in calls to next-window 3397 /* Make sure windows on this frame appear in calls to next-window