diff options
author | Karl Heuer <[email protected]> | 1995-05-09 04:57:39 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1995-05-09 04:57:39 +0000 |
commit | e557f19d8bf68d93864c03a479da6a0df9a4678f (patch) | |
tree | 0c15324f82d0f0e37f825a92caa93888937e55b3 /src/xfns.c | |
parent | 16d07a24c468c7d475dfe1d68e219f50bf2dbd92 (diff) |
(Fx_create_frame): Pass kb to make_frame_without_minibuffer.
Diffstat (limited to 'src/xfns.c')
-rw-r--r-- | src/xfns.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/xfns.c b/src/xfns.c index 712dac5696..63a58d1201 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -2739,6 +2739,7 @@ This function is an internal primitive--use `make-frame' instead.") Lisp_Object display; struct x_display_info *dpyinfo; Lisp_Object parent; + struct kboard *kb; check_x (); @@ -2746,6 +2747,11 @@ This function is an internal primitive--use `make-frame' instead.") if (EQ (display, Qunbound)) display = Qnil; dpyinfo = check_x_display_info (display); +#ifdef MULTI_KBOARD + kb = dpyinfo->kboard; +#else + kb = &the_only_kboard; +#endif name = x_get_arg (parms, Qname, "title", "Title", string); if (!STRINGP (name) @@ -2762,14 +2768,14 @@ This function is an internal primitive--use `make-frame' instead.") tem = x_get_arg (parms, Qminibuffer, 0, 0, symbol); if (EQ (tem, Qnone) || NILP (tem)) - f = make_frame_without_minibuffer (Qnil); + f = make_frame_without_minibuffer (Qnil, kb); else if (EQ (tem, Qonly)) { f = make_minibuffer_frame (); minibuffer_only = 1; } else if (WINDOWP (tem)) - f = make_frame_without_minibuffer (tem); + f = make_frame_without_minibuffer (tem, kb); else f = make_frame (1); @@ -2786,7 +2792,7 @@ This function is an internal primitive--use `make-frame' instead.") FRAME_X_DISPLAY_INFO (f) = dpyinfo; #ifdef MULTI_KBOARD - FRAME_KBOARD (f) = dpyinfo->kboard; + FRAME_KBOARD (f) = kb; #endif /* Specify the parent under which to make this X window. */ |