From: David Kastrup <dak@gnu.org>
Date: Sun, 13 Jul 2014 13:30:03 +0000 (+0200)
Subject: Issue 4009: \retrograde fails on slurs
X-Git-Tag: release/2.19.11-1~41
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ced66166c128ac976110a8dd202c67e9c8830bc9;p=lilypond.git

Issue 4009: \retrograde fails on slurs

The section "Retrograde" in the Notation Reference is affected.
This became likely exposed with issue 2240; the corresponding
regtest does not cover it.  The problem was existent previously
for slurs and other spans inside of chords.
---

diff --git a/scm/modal-transforms.scm b/scm/modal-transforms.scm
index 3e31f660e4..4200a1f176 100644
--- a/scm/modal-transforms.scm
+++ b/scm/modal-transforms.scm
@@ -130,9 +130,8 @@ LilyPond scheme pitches, e.g. @code{(ly:make-pitch 0 2 0)}
   "Recurse through @var{music}, extracting pitches.
 Returns a list of pitch objects, e.g
 @code{'((ly:make-pitch 0 2 0) (ly:make-pitch 0 4 0) ... )}
-Typically used to construct a scale for input to transposer-factory
-(see).
-"
+Typically used to construct a scale for input to
+@code{transposer-factory}."
 
   (let ((elements (ly:music-property music 'elements))
         (element (ly:music-property music 'element))
@@ -192,12 +191,15 @@ Typically used to construct a scale for input to transposer-factory
   ;; inversion and retrograding.
 
   (let* ((elements (ly:music-property music 'elements))
+         (arts (ly:music-property music 'articulations))
          (reversed (reverse elements))
          (element (ly:music-property music 'element))
          (span-dir (ly:music-property music 'span-direction)))
 
     (ly:music-set-property! music 'elements reversed)
 
+    (for-each retrograde-music arts)
+
     (if (ly:music? element)
         (ly:music-set-property!
          music 'element