From 517f18413e5a1be60c22d95db32b4c554fb0bfef Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Mon, 31 Mar 2003 21:07:01 +0000
Subject: [PATCH] (make-multi-measure-rest): set input locations for
multimeasure rests.
---
ChangeLog | 6 ++++++
lilypond-mode.el | 1 +
scm/music-functions.scm | 2 ++
3 files changed, 9 insertions(+)
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)
--
2.39.5