# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745280198 0
# Node ID 0866f021a2ccae288aa175edd0bd372c2033cb8a
# Parent  84556eadaacdf31a12731dfa56e52d5d314531b0
(XScreenNumberOfScreen): New function.

diff -r 84556eadaacd -r 0866f021a2cc src/xfns.c
--- a/src/xfns.c	Fri Aug 13 21:40:37 1993 +0000
+++ b/src/xfns.c	Fri Aug 13 22:16:38 1993 +0000
@@ -3481,6 +3481,24 @@
 #endif /* 0 */
 
 #ifdef HAVE_X11
+
+#ifndef HAVE_XSCREENNUMBEROFSCREEN
+int
+XScreenNumberOfScreen (scr)
+    register Screen *scr;
+{
+  register Display *dpy = scr->display;
+  register Screen *dpyscr = dpy->screens;
+  register int i;
+
+  for (i = 0; i < dpy->nscreens; i++, dpyscr++)
+    if (scr == dpyscr)
+      return i;
+
+  return -1;
+}
+#endif /* not HAVE_XSCREENNUMBEROFSCREEN */
+
 Visual *
 select_visual (screen, depth)
      Screen *screen;