+ (let ((ov (make-overlay (point) (point)))
+ ;; The after-string must not be longer than the remaining columns from
+ ;; point to right window-end else it will be wrapped around (assuming
+ ;; truncate-lines is nil) introducing an ugly wrap-around for a
+ ;; fraction of a second.
+ (colors (seq-take colors (- (window-width) (current-column)))))