anchor.diff:                           :attribute 'frame-multiplexer-background-attribute)))
         (line-offset p 0 charpos))
       ;; redraw windows in current frame
  -    (let* ((frame (virtual-frame-current (gethash (implementation) *virtual-frame-map*))))
  +    (let* ((frame (virtual-frame-current window)))
         (dolist (w (window-list frame))
           (window-redraw w t))
         (dolist (w (frame-floating-windows frame))
  
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:          t)))
  
  (defmethod window-redraw ((window virtual-frame) force)
    (when (or force (require-update-p window))
      ;; draw button for frames
      (let* ((buffer (virtual-frame-header-buffer window))
             (p (buffer-point buffer))
  