X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbar.cc;h=80dad453c00c6fe8375e0a856f3f6754c1365690;hb=f988425624a6f6d1a48aea0ac0c1c84ff0857e56;hp=721c807da494a5c251e0f4ce218a717d79843f0e;hpb=8b8b92e31703bf4a23683efff479793227ad39c1;p=lilypond.git

diff --git a/lily/bar.cc b/lily/bar.cc
index 721c807da4..80dad453c0 100644
--- a/lily/bar.cc
+++ b/lily/bar.cc
@@ -133,22 +133,12 @@ Bar::before_line_breaking  (SCM smob)
   SCM g = me->get_elt_property ("glyph");
   SCM orig = g;
   Direction bsd = item->break_status_dir ();
-  if (gh_string_p (g))
+  if (gh_string_p (g) && bsd)
     {
-      if (bsd)
-	{
-	  SCM breakdir = gh_int2scm (bsd);
-	  g = scm_eval2 (gh_list (ly_symbol2scm ("break-barline"),
-				 g,
-				 breakdir,
-				 SCM_UNDEFINED),
-			 SCM_EOL);
-	}
-    }
-  else
-    {
-      g = SCM_EOL;
+      SCM proc = me->get_elt_property ("break-glyph-function");
+      g = gh_call2 (proc, g, gh_int2scm (bsd));
     }
+
   
   if (!gh_string_p (g))
     {