5856 |
{ |
{ |
5857 |
struct window *w = decode_window (window); |
struct window *w = decode_window (window); |
5858 |
|
|
5859 |
if (!NILP (left)) |
/* Translate negative or zero widths to nil. |
|
CHECK_NUMBER (left); |
|
|
if (!NILP (right)) |
|
|
CHECK_NUMBER (right); |
|
|
|
|
|
/* Check widths < 0 and translate a zero width to nil. |
|
5860 |
Margins that are too wide have to be checked elsewhere. */ |
Margins that are too wide have to be checked elsewhere. */ |
|
if ((INTEGERP (left) && XINT (left) < 0) |
|
|
|| (FLOATP (left) && XFLOAT_DATA (left) <= 0)) |
|
|
XSETFASTINT (left, 0); |
|
|
if (INTEGERP (left) && XFASTINT (left) == 0) |
|
|
left = Qnil; |
|
5861 |
|
|
5862 |
if ((INTEGERP (right) && XINT (right) < 0) |
if (!NILP (left)) |
5863 |
|| (FLOATP (right) && XFLOAT_DATA (right) <= 0)) |
{ |
5864 |
XSETFASTINT (right, 0); |
CHECK_NUMBER (left); |
5865 |
if (INTEGERP (right) && XFASTINT (right) == 0) |
if (XINT (left) <= 0) |
5866 |
right = Qnil; |
left = Qnil; |
5867 |
|
} |
5868 |
|
|
5869 |
|
if (!NILP (right)) |
5870 |
|
{ |
5871 |
|
CHECK_NUMBER (right); |
5872 |
|
if (XINT (right) <= 0) |
5873 |
|
right = Qnil; |
5874 |
|
} |
5875 |
|
|
5876 |
if (!EQ (w->left_margin_cols, left) |
if (!EQ (w->left_margin_cols, left) |
5877 |
|| !EQ (w->right_margin_cols, right)) |
|| !EQ (w->right_margin_cols, right)) |