- (setf (image-property image :max-width) (window-pixel-width window))
- (setf (image-property image :max-height) (- (window-pixel-height window)
- (window-header-line-height window)
- (window-mode-line-height window)
- (window-scroll-bar-height window)
- (window-bottom-divider-width window))))
+ (setf (image-property image :max-width) (window-body-width window t))
+ (setf (image-property image :max-height) (window-body-height window t)))