From e6d662b496459ce984896ccec64116a1dd68ad20 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys 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 + + * scm/music-functions.scm (make-multi-measure-rest): set input + locations for multimeasure rests. + + 2003-03-31 Juergen Reuter * 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