new engraver for spacing in chordlyrics

private_includes/base/verses_with_chords.ily

@@ -256,6 +256,7 @@
 Chord_lyrics_spacing_engraver =
 #(lambda (ctx)
    (let ((last-lyric-syllable #f)
+         (last-lyric-syllable-width 0)
          (lyric-width-since-last-chord 0)
          (music-columns-for-last-syllable 0)
          (last-printed-chord #f)
@@ -283,6 +284,7 @@ Chord_lyrics_spacing_engraver =
         )
        ((break-event engraver event)
         (set! last-lyric-syllable #f)
+        (set! last-lyric-syllable-width 0)
         (set! lyric-width-since-last-chord 0)
         (set! music-columns-for-last-syllable 0)
         (set! last-printed-chord #f)
@@ -296,6 +298,7 @@ Chord_lyrics_spacing_engraver =
        ((lyric-syllable-interface this-engraver grob source-engraver)
         (let ((syllable-width (interval-length (ly:grob-extent grob grob X))))
           (set! lyric-width-since-last-chord (+ lyric-width-since-last-chord syllable-width))
+          (set! last-lyric-syllable-width syllable-width)
           )
         (if (> chord-width-since-last-lyric 0)
             (if lyrics-seen-since-break