[Emacs-diffs] Changes to emacs/src/xfns.c

[Richard M. Stallman]

Index: emacs/src/xfns.c
diff -c emacs/src/xfns.c:1.533 emacs/src/xfns.c:1.534
*** emacs/src/xfns.c:1.533      Tue Dec 18 01:26:27 2001
--- emacs/src/xfns.c    Fri Dec 21 17:55:36 2001
***************
*** 11126,11135 ****
  
    if (INTEGERP (left))
      *root_x = XINT (left);
!   else if (*root_x + XINT (dx) + width > FRAME_X_DISPLAY_INFO (f)->width)
      *root_x -= width + XINT (dx);
    else
!     *root_x += XINT (dx);
  }
  
  
--- 11126,11140 ----
  
    if (INTEGERP (left))
      *root_x = XINT (left);
!   else if (*root_x + XINT (dx) + width <= FRAME_X_DISPLAY_INFO (f)->width)
!     /* It fits to the right of the pointer.  */
!     *root_x += XINT (dx);
!   else if (width + XINT (dx) <= *root_x)
!     /* It fits to the left of the pointer.  */
      *root_x -= width + XINT (dx);
    else
!     /* Put it left-justified on the screen--it ought to fit that way.  */
!     *root_x = 0;
  }