# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 936715736 0
# Node ID d58d733a75d689c068b63cfe869545c45d91cbce
# Parent  b01b1c94f6eef7c01f6fcbe005ea02cc486fbc35
(Fset_window_margins): Make window the first argument.
(set_window_buffer): Call Fset_window_margins with window as first
argument.

diff -r b01b1c94f6ee -r d58d733a75d6 src/window.c
--- a/src/window.c	Tue Sep 07 14:48:55 1999 +0000
+++ b/src/window.c	Tue Sep 07 14:48:56 1999 +0000
@@ -2382,8 +2382,7 @@
     }
 
   /* Set left and right marginal area width from buffer.  */
-  Fset_window_margins (b->left_margin_width, b->right_margin_width,
-		       window);
+  Fset_window_margins (window, b->left_margin_width, b->right_margin_width);
 
   if (run_hooks_p)
     {
@@ -4582,16 +4581,16 @@
 cells to reserve for the left marginal area.  Second parameter\n\
 RIGHT-WIDTH does the same for the right marginal area.\n\
 A nil width parameter means no margin.")
-  (left, right, window)
+  (window, left, right)
      Lisp_Object window, left, right;
 {
   struct window *w = decode_window (window);
   struct frame *f = XFRAME (w->frame);
 
   if (!NILP (left))
-    CHECK_NUMBER_OR_FLOAT (left, 0);
+    CHECK_NUMBER_OR_FLOAT (left, 1);
   if (!NILP (right))
-    CHECK_NUMBER_OR_FLOAT (right, 0);
+    CHECK_NUMBER_OR_FLOAT (right, 2);
 
   /* Check widths < 0 and translate a zero width to nil.
      Margins that are too wide have to be checked elsewhere.  */