(make-multi-measure-rest): set input

locations for multimeasure rests.

diff --git a/ChangeLog b/ChangeLog
index ddf942080c9fffecc15a265ab1275a02d55cf5f8..ad6b94d19ff76c6d20bd4f87476a9f2b8cdb6855 100644 (file)
--- 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 3e5053befd75c142d1f226ccb09cfd8b92cbc980..7df2546a5a68b1b29414e071a25d8d1b67d02076 100644 (file)
--- 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 c75ae69f51853995d667c473388fa4f2fc77498f..bc18a53b3d94d7311c5747191514566ccf399de6 100644 (file)
--- 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)