anchor.diff:              ((< max width)
                (setf width max))))
       (let ((new-window
  -           (make-window (window-buffer window)
  -                        (+ *window-left-margin* (window-x window) width)
  -                        (window-y window)
  -                        (- (window-width window) width *window-left-margin*)
  -                        (window-height window)
  -                        t)))
  +            (make-window (window-buffer window)
  +                         (+ *window-left-margin* (window-x window) width)
  +                         (window-y window)
  +                         (- (window-width window) width *window-left-margin*)
  +                         (window-height window)
  +                         t)))
         (setf (window-%width window) width)
         (split-window-after window new-window :hsplit)
         (lem-if:split-window-horizontally (implementation)
  
positive.code:                                    new-window))))
    t)
  
  (defun split-window-vertically (window &optional height)
    (unless (minibuffer-window-p window)
      (let* ((use-modeline-p t)
             (min (+ 1 (if use-modeline-p 1 0)))
             (max (- (window-height window) min)))
  
negative.code:                                       (window-view new-window)))))
  
  (defun split-window-horizontally (window &optional width)
    (when (split-window-before window)
      (let* ((fringe-size 0)
             (min (+ 2 fringe-size))
             (max (- (window-width window) min)))
  