Mercurial > emacs

changeset 23793:3f48dda0547a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qouter_window_id): New variable. (syms_of_xfns): Initialize it. (x_report_frame_params): Set up outer-window-id parameter.
author Richard M. Stallman <rms@gnu.org>
date Wed, 02 Dec 1998 18:06:37 +0000
parents ec06ad058029
children 7348b1c771c0
files src/xfns.c
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfns.c	Wed Dec 02 13:34:59 1998 +0000
+++ b/src/xfns.c	Wed Dec 02 18:06:37 1998 +0000
@@ -194,6 +194,7 @@
 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 @@
   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 @@
   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");