[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Alternate (scheme) text spanner ignores spacers
From: |
David Nalesnik |
Subject: |
Re: Alternate (scheme) text spanner ignores spacers |
Date: |
Fri, 7 Oct 2016 09:56:18 -0500 |
On Fri, Oct 7, 2016 at 9:47 AM, David Nalesnik <address@hidden> wrote:
> The attached [...]
There's some test code in the rewrite, which you may want to remove.
Without it, lines 177- look like this:
((finalize trans)
;; If spanner ends on spacer at end of context?
(for-each
(lambda (f)
(if (null? (ly:spanner-bound f RIGHT))
(ly:spanner-set-bound! f RIGHT
(ly:context-property context 'currentMusicalColumn))))
finished)
(set! finished '())
;; User didn't end spanner.
(for-each
(lambda (sp)
(ly:warning "incomplete spanner removed!")
(ly:grob-suicide! (cdr sp)))
spanners)
(set! spanners '())))))