anchor.diff:  
   (defun window-resize (window dw dh)
     (window-set-size window
  -                   (+ (window-%width window) dw)
  +                   (+ (window-width window) dw)
                      (+ (window-%height window) dh))
     (run-hooks *window-size-change-functions* window))
   
  
positive.code: (defun split-window-after (current-window new-window split-type)
    (assert (not (eq current-window new-window)))
    (window-set-size current-window
                     (window-%width current-window)
                     (window-%height current-window))
    (move-point (window-view-point new-window)
                (window-view-point current-window))
  
negative.code: (defun window-set-size (window width height)
    (when (floating-window-p window)
      (setf (frame-modified-floating-windows (current-frame)) t))
    (set-window-width width window)
    (setf (window-%height window) height)
    (screen-set-size (window-screen window)
                     width
  