]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-1.5.21
authorfred <fred>
Wed, 27 Mar 2002 02:04:04 +0000 (02:04 +0000)
committerfred <fred>
Wed, 27 Mar 2002 02:04:04 +0000 (02:04 +0000)
lily/repeat-acknowledge-engraver.cc

index 24f8d723d483f93b2c0b7a2c2da02ee5247bf482..4f75dade559b92995d654103e15951d14813ca08 100644 (file)
@@ -92,15 +92,24 @@ Repeat_acknowledge_engraver::process_music ()
     s = ":|";
 
   /*
-    TODO: line breaks might be allowed if we set whichBar to "". 
+    TODO: line breaks might be allowed if we set whichBar to "".
    */
-  if (s != "" || (volta_found && !gh_string_p (get_property ("whichBar"))))
+
+  /*
+    We only set the barline if we wouldn't overwrite a previously set
+    barline.
+   */
+  SCM wb = get_property ("whichBar");
+  SCM db  = get_property ("defaultBarType");
+  if (!gh_string_p (wb) || gh_equal_p (db, wb))
     {
-      daddy_trans_l_->set_property ("whichBar", ly_str02scm (s.ch_C ()));
+      if (s != "" || (volta_found && !gh_string_p (wb)))
+       {
+         daddy_trans_l_->set_property ("whichBar", ly_str02scm (s.ch_C ()));
+       }
     }
 }
 
-
 ENTER_DESCRIPTION(Repeat_acknowledge_engraver,
 /* descr */       "Acknowledge repeated music, and convert the contents of
 repeatCommands ainto an appropriate setting for whichBar",