Mercurial > emacs

changeset 25591:d58d733a75d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fset_window_margins): Make window the first argument. (set_window_buffer): Call Fset_window_margins with window as first argument.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 07 Sep 1999 14:48:56 +0000
parents b01b1c94f6ee
children c6be980d15a6
files src/window.c
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.  */