From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 31 Mar 2003 21:07:01 +0000 (+0000)
Subject: (make-multi-measure-rest): set input
X-Git-Tag: release/1.7.16~20
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e6d662b496459ce984896ccec64116a1dd68ad20;p=lilypond.git

(make-multi-measure-rest): set input
locations for multimeasure rests.
---

diff --git a/ChangeLog b/ChangeLog
index ddf942080c..ad6b94d19f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-03-31  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* scm/music-functions.scm (make-multi-measure-rest): set input
+	locations for multimeasure rests.
+	
+
 2003-03-31  Juergen Reuter  <reuter@ipd.uka.de>
 
 	* input/regression/breathing-sign.ly: updated to for ancient
diff --git a/lilypond-mode.el b/lilypond-mode.el
index 3e5053befd..7df2546a5a 100644
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -20,6 +20,7 @@
 ;;; for installing instructions.
 
 ;;; TODO:
+;;;    * sensible error if lilypond.words not found. 
 ;;;    * XEmacs, broken ?
 ;;;    * parenthesis matching
 
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index c75ae69f51..bc18a53b3d 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -228,6 +228,8 @@ i.e.  this is not an override"
        (seq  (make-music-by-name 'MultiMeasureRestMusicGroup))
        )
 
+    (map (lambda (x) (ly:set-mus-property! x 'origin location))
+	 (list start stop skip ch ch2 seq))
     (ly:set-mus-property! start 'span-direction START)
     (ly:set-mus-property! stop 'span-direction STOP)    
     (ly:set-mus-property! skip 'duration duration)