X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-properties.scm;h=b8aba452ff8364dfb4d67fd5649ee71c9be4a8af;hb=322acc3c4bd05d0a9e952267d80246818514893a;hp=52d28ed17c256cd1caa4d43b2e6e232ba52e3300;hpb=6a6969bee0b27f71175f2764a03398102fb67a2b;p=lilypond.git

diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm
index 52d28ed17c..b8aba452ff 100644
--- a/scm/define-music-properties.scm
+++ b/scm/define-music-properties.scm
@@ -10,13 +10,12 @@
 (define (music-property-description symbol type? description)
   (if (not (equal? #f (object-property symbol 'music-doc)))
       (begin
-	(ly:warn (string-append "Redefining " (symbol->string symbol) "\n"))
+	(ly:warn "Redefining ~S" symbol)
 	(exit 2)
 	))
   (set-object-property! symbol 'music-type? type?)
   (set-object-property! symbol 'music-doc description)
-  symbol )
-
+  symbol)
 
 (define-public all-music-properties
   (map
@@ -57,6 +56,7 @@ e.g. @code{\\tag #'part ...} could tag a piece of music as only being active in
      (text-type ,symbol? "Particular type of text script (e.g. finger, dynamic).")
      (tempo-unit ,ly:duration? "The unit for the metronome count.")
      (tonic ,ly:pitch? "Base of the scale")
+     (error-found ,boolean? "If true, a parsing error was found in this expression")
      (element ,ly:music? "The single child of a Music_wrapper music object, or the body of a repeat.")
      (elements ,ly:music-list? "A list of elements for sequential of simultaneous music, or the alternatives of repeated music. ")
      (force-accidental ,boolean? "If set, a cautionary accidental should always be printed on this note")
@@ -65,7 +65,8 @@ e.g. @code{\\tag #'part ...} could tag a piece of music as only being active in
      (inversion ,boolean? "If set, this chord note is inverted.")
      (label ,markup? "label of a mark.")
      (last-pitch ,ly:pitch? "The last pitch after relativization.")
-     (length ,procedure? "How to compute the duration of this music")
+     (length ,ly:moment? "The duration of this music")
+     (length-callback ,procedure? "How to compute the duration of this music")
      (internal-class-name ,string? "C++ class to use for this Music object") 
      (name ,symbol? "Name of this music object")
      (numerator ,integer? "numerator of a time signature")
@@ -74,7 +75,8 @@ e.g. @code{\\tag #'part ...} could tag a piece of music as only being active in
 		  "This pitch was octavated by how many octaves?
 For chord inversions, this is negative.")
      (origin ,ly:input-location? "where was this piece of music defined?")
-     (penalty ,number? "Penalty for break hint.")
+     (page-penalty ,number? "Penalty for page break hint.")
+     (penalty ,number? "Penalty for line break hint.")
      (pitch ,ly:pitch? "the pitch of this note")
      (pitch-alist ,list? "list of pitches jointly forming the scale of a key signature")
      (pop-first ,boolean? "Do a revert before we try to do a override on some grob property.")
@@ -84,6 +86,11 @@ For chord inversions, this is negative.")
 			  "Do these operations for instantiating the context.")
      (predicate ,procedure? "the predicate of a \\outputproperty.")
      (quoted-events ,vector? "A vector of with moment/event-list entries.")
+     (quoted-music-name ,string? "The name of the voice to quote.")
+     (quoted-voice-direction ,ly:dir? "Should the quoted voice be up-stem or down-stem?")
+     (quoted-context-type ,symbol? "The name of the context to direct quotes to, eg., @code{Voice}.")
+     (quoted-context-id ,string? "The id of the context to direct quotes to, eg., @code{cue}.")
+
      (type ,symbol? "The type of this music object. Determines iteration in some cases.")
      (types ,list? "The types of this music
 object; determines by what engraver this music expression is
@@ -105,7 +112,7 @@ translation property")
 			  "Change to what kind of state? Options are
 solo1, solo2 and unisono")
 
-     (figure ,string? "a `figure' (which may be
+     (figure ,markup? "a `figure' (which may be
 a string) for figured bass")
      (alteration ,number? "alteration for figured bass")
      (bracket-start ,boolean? "start a bracket