# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 763608529 0
# Node ID 5e662ad3f594ed9da33e0af2ed7869513fc69eb4
# Parent  d6817c9c041362d781b2f3819632c9c47425005f
(Fdelete_other_windows): Pass new arg to Fvertical_motion.
(window_scroll, Frecenter, Fmove_to_window_line): Likewise.

diff -r d6817c9c0413 -r 5e662ad3f594 src/window.c
--- a/src/window.c	Mon Mar 14 00:18:52 1994 +0000
+++ b/src/window.c	Mon Mar 14 01:28:49 1994 +0000
@@ -1351,7 +1351,8 @@
   opoint = point;
   SET_PT (marker_position (w->start));
   /* Like Frecenter but avoid setting w->force_start.  */
-  Fvertical_motion (make_number (- (top - FRAME_MENU_BAR_LINES (XFRAME (WINDOW_FRAME (w))))));
+  Fvertical_motion (make_number (- (top - FRAME_MENU_BAR_LINES (XFRAME (WINDOW_FRAME (w))))),
+		    window);
   Fset_marker (w->start, make_number (PT), w->buffer);
   w->start_at_line_beg = Fbolp ();
 
@@ -2177,7 +2178,7 @@
 
   if (NILP (tem))
     {
-      Fvertical_motion (make_number (- ht / 2));
+      Fvertical_motion (make_number (- ht / 2), window);
       XFASTINT (tem) = point;
       Fset_marker (w->start, tem, w->buffer);
       w->force_start = Qt;
@@ -2185,7 +2186,7 @@
 
   SET_PT (marker_position (w->start));
   lose = n < 0 && point == BEGV;
-  Fvertical_motion (make_number (n));
+  Fvertical_motion (make_number (n), window);
   pos = point;
   bolp = Fbolp ();
   SET_PT (opoint);
@@ -2209,11 +2210,11 @@
       if (n < 0)
 	{
 	  SET_PT (pos);
-	  tem = Fvertical_motion (make_number (ht));
+	  tem = Fvertical_motion (make_number (ht), window);
 	  if (point > opoint || XFASTINT (tem) < ht)
 	    SET_PT (opoint);
 	  else
-	    Fvertical_motion (make_number (-1));
+	    Fvertical_motion (make_number (-1), window);
 	}
     }
   else
@@ -2404,6 +2405,7 @@
   register struct window *w = XWINDOW (selected_window);
   register int ht = window_internal_height (w);
   register int opoint = point;
+  Lisp_Object window;
 
   if (NILP (n))
     {
@@ -2427,7 +2429,8 @@
 
   XSETINT (n, - XINT (n));
 
-  Fvertical_motion (n);
+  XSET (window, Lisp_Window, w);
+  Fvertical_motion (n, window);
   Fset_marker (w->start, make_number (point), w->buffer);
   w->start_at_line_beg = Fbolp ();
 
@@ -2449,6 +2452,7 @@
   register struct window *w = XWINDOW (selected_window);
   register int height = window_internal_height (w);
   register int start;
+  Lisp_Object window;
 
   if (NILP (arg))
     XFASTINT (arg) = height / 2;
@@ -2460,9 +2464,10 @@
     }
 
   start = marker_position (w->start);
+  XSET (window, Lisp_Window, w);
   if (start < BEGV || start > ZV)
     {
-      Fvertical_motion (make_number (- height / 2));
+      Fvertical_motion (make_number (- height / 2), window);
       Fset_marker (w->start, make_number (point), w->buffer);
       w->start_at_line_beg = Fbolp ();
       w->force_start = Qt;
@@ -2470,7 +2475,7 @@
   else
     SET_PT (start);
 
-  return Fvertical_motion (arg);
+  return Fvertical_motion (arg, window);
 }
 
 struct save_window_data