Revert "Convert \new Staff ... \addlyrics into \new Staff \new Voice ... \addlyrics"

This reverts commit 76f256075f0a4f481d7e11c19dd55ab09030fe5b.

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 68bfb1f9f163361ada22655459bd303ea0f96395..66f34cfceb7c8819659ed0dfd3f68effb1c86d71 100644 (file)
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -253,20 +253,11 @@ into a @code{MultiMeasureTextEvent}."
                          (get-next-unique-voice-name)))
          (voice (if (string? existing-voice-name)
                     music
-                    (if (eq? (ly:music-property music 'name) 'ContextSpeccedMusic)
-                        (begin
-                          (set! (ly:music-property music 'element)
-                                (make-music 'ContextSpeccedMusic
-                                            'element (ly:music-property music 'element)
-                                            'context-type 'Voice
-                                            'context-id voice-name
-                                            'origin (ly:music-property music 'origin)))
-                          music)
-                        (make-music 'ContextSpeccedMusic
-                                    'element music
-                                    'context-type 'Voice
-                                    'context-id voice-name
-                                    'origin (ly:music-property music 'origin)))))
+                    (make-music 'ContextSpeccedMusic
+                                'element music
+                                'context-type 'Voice
+                                'context-id voice-name
+                                'origin (ly:music-property music 'origin))))
          (lyricstos (map (lambda (mus)
                            (let* ((loc (ly:music-property mus 'origin))
                                   (lyr (lyric-combine-music voice-name mus loc)))