anchor.diff:          ((not (= (display-height)
                    (virtual-frame-height virtual-frame)))
            t)))
  -
  -(defun set-to-frame-buffer-list (virtual-frame frame)
  -  (let ((buffer-list-map (virtual-frame-buffer-list-map virtual-frame))
  -        (buffer-list (copy-list (buffer-list))))
  -    (setf (gethash frame buffer-list-map) buffer-list)))
  -
  -(defun set-to-current-buffer-list (virtual-frame frame)
  -  (let* ((buffer-list-map (virtual-frame-buffer-list-map virtual-frame))
  -         (buffer-list (gethash frame buffer-list-map)))
  -    (lem-base::set-buffer-list buffer-list)))
   
   (defmethod window-redraw ((window virtual-frame) force)
     (when (or force
  
positive.code:     :initarg :current
      :accessor virtual-frame-current
      :type %frame)
     (buffer-list-map
      :initarg :buffer-list-map
      :accessor virtual-frame-buffer-list-map)
     (display-width
      :initarg :width
      :accessor virtual-frame-width)
  
negative.code:          (num (num-frames vf)))
      (when (= num 1)
        (editor-error "cannot delete this virtual frame"))
      (free-frame vf (virtual-frame-current vf))
      (let ((%frame (search-previous-frame vf (virtual-frame-current vf))))
        (setf (virtual-frame-current vf) %frame)
  