Preventing long \mark objects to stretch a measure

When you put a long \markup text in a \mark object, LilyPond stretches the measure to encompass the complete markup. This can be avoided by overriding the 'X-extent property of the RehearsalMark object, as demonstrated in this snippet.