Merge branch 'master' of ssh://git.sv.gnu.org/srv/git/lilypond into lilypond/translation

[lilypond.git] / scm / define-music-display-methods.scm

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 3e87b4a8a8bab722ac34ac4846fccbaacd3c27ed..5c7ec677de70850bc7f33e1e18a8dcf4d4edec41 100644 (file)
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -426,7 +426,8 @@ Otherwise, return #f."
   ;; post_events : ( post_event | tagged_post_event )*
   ;; tagged_post_event: '-' \tag embedded_scm post_event
 
-  (let* ((elements (ly:music-property chord 'elements))
+  (let* ((elements (append (ly:music-property chord 'elements)
+                          (ly:music-property chord 'articulations)))
         (chord-elements (filter (lambda (m)
                                    (music-is-of-type? m 'rhythmic-event))
                                 elements))