Index: lily/engraver-scheme.cc |
diff --git a/lily/engraver-scheme.cc b/lily/engraver-scheme.cc |
index c2cbe1ace4ee3642df487fbb7e1ee75a7a468e26..d04c809aa4c8ae5f3b8c95b54be86ee974aaacd9 100644 |
--- a/lily/engraver-scheme.cc |
+++ b/lily/engraver-scheme.cc |
@@ -22,10 +22,9 @@ |
LY_DEFINE (ly_engraver_make_grob, "ly:engraver-make-grob", |
3, 0, 0, (SCM engraver, SCM grob_name, SCM cause), |
- "Creates a grob originating from given engraver instance, " |
- "with give @code{grob_name}, a symbol. " |
- "@code{cause} should either be another grob " |
- "or a music event.") |
+ "Creates a grob originating from given engraver instance," |
+ " with give @code{grob-name}, a symbol. @code{cause}" |
+ " should either be another grob or a music event.") |
{ |
LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); |
LY_ASSERT_TYPE (ly_is_symbol, grob_name, 2); |
@@ -38,3 +37,19 @@ LY_DEFINE (ly_engraver_make_grob, "ly:engraver-make-grob", |
return g->self_scm (); |
} |
+LY_DEFINE (ly_engraver_announce_end_grob, "ly:engraver-announce-end-grob", |
+ 3, 0, 0, (SCM engraver, SCM grob, SCM cause), |
+ "Announces the end of a grob (i.e., the end of a spanner)" |
+ " originating from given engraver instance, with" |
+ " @code{grob} being a grob. @code{cause} should either" |
+ " be another grob or a music event.") |
+{ |
+ LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); |
+ LY_ASSERT_SMOB (Grob, grob, 2); |
+ LY_ASSERT_TYPE (ly_is_grob_cause, cause, 3); |
+ |
+ unsmob_engraver (engraver)-> |
+ announce_end_grob (unsmob_grob (grob), cause); |
+ |
+ return SCM_UNSPECIFIED; |
+} |