anchor.diff:      window))
   
   (defmethod %delete-window ((window floating-window))
  +  (when (eq window (current-window))
  +    (editor-error "Can not delete this window"))
     (setf *floating-windows*
           (delete window *floating-windows*)))
   
  
positive.code:             ((< max height)
               (setf height max))))
      (let ((new-window
             (make-window (window-buffer window)
                          (window-x window)
                          (+ (window-y window) height)
                          (window-width window)
                          (- (window-height window) height)
                          t)))
        (setf (window-%height window) height)
        (split-window-after window new-window :vsplit)
        (lem-if:split-window-vertically (implementation)
  
negative.code:                                    new-window))))
    t)
  
  (defun split-window-before (window)
    (cond ((minibuffer-window-p window) nil)
          ((floating-window-p window) (editor-error "Can not split this window"))
          (t t)))
  
  (defun split-window-vertically (window &optional height)
    (when (split-window-before window)
      (let* ((use-modeline-p t)
             (min (+ 1 (if use-modeline-p 1 0)))
             (max (- (window-height window) min)))
  