+ \\override #'(thickness . 1.5) \\whiteout whiteout
+}
+@end lilypond"
+ (stencil-whiteout
+ (interpret-markup layout props arg)
+ (* thickness
+ (ly:output-def-lookup layout 'line-thickness))))
+
+(define-markup-command (whiteout-box layout props arg)
+ (markup?)
+ #:category other
+ #:properties ((thickness 0))
+ "
+@cindex adding a rectangular white background to text
+
+Provide a rectangular white background for @var{arg}.
+
+@lilypond[verbatim,quote]
+\\markup {
+ \\combine
+ \\filled-box #'(-1 . 10) #'(-3 . 4) #1
+ \\override #'(thickness . 1.5) \\whiteout-box whiteout-box