# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 789344394 0
# Node ID 9ef4bfc9a320f2473557282539281cadf8707dea
# Parent  e5638e0a5a6046505cc274dca4d6465776d4e789
[!MULTI_FRAME] (window_frame): New function.
[!MULTI_FRAME] (syms_of_frame): defsubr it.

diff -r e5638e0a5a60 -r 9ef4bfc9a320 src/frame.c
--- a/src/frame.c	Thu Jan 05 22:11:35 1995 +0000
+++ b/src/frame.c	Thu Jan 05 22:19:54 1995 +0000
@@ -1890,6 +1890,20 @@
   return tem;
 }
 
+DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0,
+  /* Don't confuse make-docfile by having two doc strings for this function.
+     make-docfile does not pay attention to #if, for good reason!  */
+  0)
+  (window)
+     Lisp_Object window;
+{
+  /* For your possible information, this code is unfolded into the
+     second WINDOW_FRAME in frame.h.  */     
+  Lisp_Object tem;
+  XSETFASTINT (tem, 0);
+  return tem;
+}
+
 DEFUN ("frame-first-window", Fframe_first_window, Sframe_first_window, 0, 1, 0,
   0)
   (frame)
@@ -2201,6 +2215,7 @@
   XSETFASTINT (Vterminal_frame, 0);
 
   defsubr (&Sselected_frame);
+  defsubr (&Swindow_frame);
   defsubr (&Sframe_first_window);
   defsubr (&Sframep);
   defsubr (&Sframe_char_height);