+ (max (interval-end (ly:grob-robust-relative-extent
+ left-span common X))
+ (if (and
+ dots
+ (close (ly:grob-relative-coordinate dots common-y Y)
+ (ly:grob-relative-coordinate spanner common-y Y)))
+ (interval-end (ly:grob-robust-relative-extent dots common X))
+ -10000) ;; TODO: use real infinity constant.
+ )))
+ (x (display (grob::has-interface left-span 'note-head-interface)))
+