/[emacs]/emacs/src/window.c
ViewVC logotype

Diff of /emacs/src/window.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.452 by rms, Mon Oct 13 18:44:22 2003 UTC revision 1.453 by kfstorm, Tue Oct 14 09:33:09 2003 UTC
# Line 5856  A nil width parameter means no margin. Line 5856  A nil width parameter means no margin.
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))

Legend:
Removed from v.1.452  
changed lines
  Added in v.1.453

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26