diff options
| author | Richard M. Stallman | 2006-01-26 17:49:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-01-26 17:49:48 +0000 |
| commit | 5fa98fcf92fa168972ced36e38501d63d0e8d6ea (patch) | |
| tree | d5da377ae8384299e0ce304ae4b10ec423712041 | |
| parent | d00368cf268ab3e020f6e85121781ff069068057 (diff) | |
| download | emacs-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.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. */) | |||
| 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 |