anchor.diff:          (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*)
  +  ;; clear virtual-frame-changed to nil because of applying redraw
  +  (setf (virtual-frame-changed window) nil)
     (call-next-method))
   
   (defun frame-multiplexer-init ()
  
positive.code:          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)))
      ;; draw button for frames
      (let* ((buffer (virtual-frame-header-buffer window))
             (p (buffer-point buffer))
  
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))
  