Commit 2cbebefb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Qouter_window_id): New variable.

(syms_of_xfns): Initialize it.
(x_report_frame_params): Set up outer-window-id parameter.
parent beba4bd9
...@@ -194,6 +194,7 @@ Lisp_Object Qleft; ...@@ -194,6 +194,7 @@ Lisp_Object Qleft;
Lisp_Object Qright; Lisp_Object Qright;
Lisp_Object Qmouse_color; Lisp_Object Qmouse_color;
Lisp_Object Qnone; Lisp_Object Qnone;
Lisp_Object Qouter_window_id;
Lisp_Object Qparent_id; Lisp_Object Qparent_id;
Lisp_Object Qscroll_bar_width; Lisp_Object Qscroll_bar_width;
Lisp_Object Qsuppress_icon; Lisp_Object Qsuppress_icon;
...@@ -1060,6 +1061,9 @@ x_report_frame_params (f, alistptr) ...@@ -1060,6 +1061,9 @@ x_report_frame_params (f, alistptr)
sprintf (buf, "%ld", (long) FRAME_X_WINDOW (f)); sprintf (buf, "%ld", (long) FRAME_X_WINDOW (f));
store_in_alist (alistptr, Qwindow_id, store_in_alist (alistptr, Qwindow_id,
build_string (buf)); build_string (buf));
sprintf (buf, "%ld", (long) FRAME_OUTER_WINDOW (f));
store_in_alist (alistptr, Qouter_window_id,
build_string (buf));
store_in_alist (alistptr, Qicon_name, f->icon_name); store_in_alist (alistptr, Qicon_name, f->icon_name);
store_in_alist (alistptr, Qvisibility, store_in_alist (alistptr, Qvisibility,
...@@ -5290,6 +5294,8 @@ syms_of_xfns () ...@@ -5290,6 +5294,8 @@ syms_of_xfns ()
staticpro (&Qvisibility); staticpro (&Qvisibility);
Qwindow_id = intern ("window-id"); Qwindow_id = intern ("window-id");
staticpro (&Qwindow_id); staticpro (&Qwindow_id);
Qouter_window_id = intern ("outer-window-id");
staticpro (&Qouter_window_id);
Qx_frame_parameter = intern ("x-frame-parameter"); Qx_frame_parameter = intern ("x-frame-parameter");
staticpro (&Qx_frame_parameter); staticpro (&Qx_frame_parameter);
Qx_resource_name = intern ("x-resource-name"); Qx_resource_name = intern ("x-resource-name");
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment