From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 29 Dec 2010 00:57:11 +0000 (+0100)
Subject: Remove explicit origin setting from simple make-music calls
X-Git-Tag: release/2.13.47-1~3
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=63d09e631348d2178cc9a9bbe4889b502cb207f5;p=lilypond.git

Remove explicit origin setting from simple make-music calls
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index a307f0ca89..fc49725f07 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -91,7 +91,6 @@ applyContext =
 #(define-music-function (parser location proc) (procedure?)
    (_i "Modify context properties with Scheme procedure @var{proc}.")
    (make-music 'ApplyContext
-	       'origin location
 	       'procedure proc))
 
 applyMusic =
@@ -103,7 +102,6 @@ applyOutput =
 #(define-music-function (parser location ctx proc) (symbol? procedure?)
    (_i "Apply function @code{proc} to every layout object in context @code{ctx}")
    (make-music 'ApplyOutputEvent
-	       'origin location
 	       'procedure proc
 	       'context-type ctx))
 
@@ -170,7 +168,6 @@ barNumberCheck =
 #(define-music-function (parser location n) (integer?)
    (_i "Print a warning if the current bar number is not @var{n}.")
    (make-music 'ApplyContext
-	       'origin location
 	       'procedure
 	       (lambda (c)
 		 (let ((cbn (ly:context-property c 'currentBarNumber)))
@@ -500,7 +497,6 @@ octaveCheck =
 #(define-music-function (parser location pitch-note) (ly:music?)
    (_i "Octave check.")
    (make-music 'RelativeOctaveCheck
-	       'origin location
 	       'pitch (pitch-of-note pitch-note)))
 
 ottava =
@@ -542,7 +538,6 @@ or @code{\"GrobName\"}.")
 	   (set! context-name (string->symbol (list-ref name-components 0)))))
 
      (make-music 'ApplyOutputEvent
-		 'origin location
 		 'context-type context-name
 		 'procedure
 		 (lambda (grob orig-context context)
@@ -759,8 +754,7 @@ of the quoted voice, as specified in an @code{\\addQuote} command.
 usually contains spacers or multi-measure rests.")
    (make-music 'QuoteMusic
                'element main-music
-               'quoted-music-name what
-               'origin location))
+               'quoted-music-name what))
 
 removeWithTag =
 #(define-music-function (parser location tag music) (symbol? ly:music?)
@@ -879,8 +873,7 @@ as a first or second voice.")
 	       'quoted-context-id "cue"
 	       'quoted-music-name what
 	       'quoted-voice-direction dir
-	       'quoted-transposition (pitch-of-note pitch-note)
-	       'origin location))
+	       'quoted-transposition (pitch-of-note pitch-note)))
 
 transposition =
 #(define-music-function (parser location pitch-note) (ly:music?)