diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-09-07 14:48:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-09-07 14:48:56 +0000 |
| commit | cfa2208264fdb06a8bb4882a57da315abfa86b6a (patch) | |
| tree | 0493d489c2673bad293d05aa3c7ffc908c70bd66 | |
| parent | a46866a03aa0bf8670529e706045b7bdc3b810d1 (diff) | |
| download | emacs-cfa2208264fdb06a8bb4882a57da315abfa86b6a.tar.gz emacs-cfa2208264fdb06a8bb4882a57da315abfa86b6a.tar.bz2 emacs-cfa2208264fdb06a8bb4882a57da315abfa86b6a.zip | |
(Fset_window_margins): Make window the first argument.
(set_window_buffer): Call Fset_window_margins with window as first
argument.
| -rw-r--r-- | src/window.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/window.c b/src/window.c index 6f1a325d67c..d8bb7cdd699 100644 --- a/src/window.c +++ b/src/window.c @@ -2382,8 +2382,7 @@ set_window_buffer (window, buffer, run_hooks_p) } /* 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 @@ First parameter LEFT-WIDTH specifies the number of character\n\ 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. */ |