From 2cbebefb27d60d9a5f395c55036a796ac9b92e45 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 2 Dec 1998 18:06:37 +0000 Subject: [PATCH] (Qouter_window_id): New variable. (syms_of_xfns): Initialize it. (x_report_frame_params): Set up outer-window-id parameter. --- src/xfns.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/xfns.c b/src/xfns.c index f6395dc0fb4..1a76f039eff 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -194,6 +194,7 @@ Lisp_Object Qleft; Lisp_Object Qright; Lisp_Object Qmouse_color; Lisp_Object Qnone; +Lisp_Object Qouter_window_id; Lisp_Object Qparent_id; Lisp_Object Qscroll_bar_width; Lisp_Object Qsuppress_icon; @@ -1060,6 +1061,9 @@ x_report_frame_params (f, alistptr) sprintf (buf, "%ld", (long) FRAME_X_WINDOW (f)); store_in_alist (alistptr, Qwindow_id, 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); FRAME_SAMPLE_VISIBILITY (f); store_in_alist (alistptr, Qvisibility, @@ -5290,6 +5294,8 @@ syms_of_xfns () staticpro (&Qvisibility); Qwindow_id = intern ("window-id"); staticpro (&Qwindow_id); + Qouter_window_id = intern ("outer-window-id"); + staticpro (&Qouter_window_id); Qx_frame_parameter = intern ("x-frame-parameter"); staticpro (&Qx_frame_parameter); Qx_resource_name = intern ("x-resource-name"); -- 2.39.5