From ef89a6b5476d9dd791a3cef3c460614cbcc01835 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Jan 1993 21:41:22 +0000
Subject: [PATCH] Add new primitive X-WINDOW-ID.

---
 v7/src/microcode/x11base.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 001c52e2e..b5ee2688c 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.44 1992/12/10 20:23:57 cph Exp $
+$Id: x11base.c,v 1.45 1993/01/12 21:41:22 cph Exp $
 
-Copyright (c) 1989-92 Massachusetts Institute of Technology
+Copyright (c) 1989-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1479,6 +1479,12 @@ DEFINE_PRIMITIVE ("X-WINDOW-QUERY-POINTER", Prim_x_window_query_pointer, 1, 1, 0
     PRIMITIVE_RETURN (result);
   }
 }
+
+DEFINE_PRIMITIVE ("X-WINDOW-ID", Prim_x_window_id, 1, 1, 0)
+{
+  PRIMITIVE_HEADER (1);
+  PRIMITIVE_RETURN (long_to_integer (XW_WINDOW (x_window_arg (1))));
+}
 
 /* Appearance Control Primitives */
 
-- 
2.25.1