anchor.diff:           t)))
   
   (defmethod window-redraw ((window virtual-frame) force)
  -  (when (or force
  -            (loop :for k :being :each :hash-key :of *virtual-frame-map*
  -                  :using (hash-value vf)
  -                  :thereis (require-update-p vf)))
  +  (when (or force (require-update-p window))
       ;; draw button for frames
       (let* ((buffer (virtual-frame-header-buffer window))
              (p (buffer-point buffer))
  
positive.code:         (unless (eq w window)
            (window-redraw w t))))
      (lem-if:update-display (implementation)))
    ;; clear all virtual-frame-changed to nil because of applying redraw
    (maphash (lambda (k vf)
               (declare (ignore k))
               (setf (virtual-frame-changed vf) nil))
             *virtual-frame-map*)
    (call-next-method))
  
  (defun frame-multiplexer-init ()
  
negative.code:                          :attribute 'frame-multiplexer-background-attribute)))
        (line-offset p 0 charpos))
      ;; redraw windows in current frame
      (let* ((frame (virtual-frame-current window)))
        (dolist (w (window-list frame))
          (window-redraw w t))
        (dolist (w (frame-floating-windows frame))
  