diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-01-26 17:49:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-01-26 17:49:48 +0000 |
| commit | 5fa98fcf92fa168972ced36e38501d63d0e8d6ea (patch) | |
| tree | d5da377ae8384299e0ce304ae4b10ec423712041 /src/xfns.c | |
| parent | d00368cf268ab3e020f6e85121781ff069068057 (diff) | |
| download | emacs-5fa98fcf92fa168972ced36e38501d63d0e8d6ea.tar.gz | |
(Fx_create_frame): Put all specified parms into f->param_alist
unless they were cleared out.
Diffstat (limited to 'src/xfns.c')
| -rw-r--r-- | src/xfns.c | 8 |
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. */) 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 |