X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily-library.scm;h=570c7407750e75d16d693628950d127b2f465158;hb=063a1b9e21d8309c4940696e1a341592be40f74a;hp=79134ca7d46caf1f16c80478755aa5fa97f71472;hpb=a42a4f9c507f42456b3ac361788397881b86b1a0;p=lilypond.git

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 79134ca7d4..570c740775 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -121,6 +121,16 @@ non-visual scale factor 1."
 duration (base note length and dot count), as a number of whole notes."
   (duration-length (duration-visual dur)))
 
+(define-public (unity-if-multimeasure context dur)
+  "Given a context and a duration, return @code{1} if the duration is
+longer than the @code{measureLength} in that context, and @code{#f} otherwise.
+This supports historic use of @code{Completion_heads_engraver} to split
+@code{c1*3} into three whole notes."
+  (if (ly:moment<? (ly:context-property context 'measureLength)
+                   (ly:duration-length dur))
+    1
+    #f))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; arithmetic
 (define-public (average x . lst)