Doc: removing a left over html tag in a snippet

[lilypond.git] / lily / bar-line.cc

diff --git a/lily/bar-line.cc b/lily/bar-line.cc
index c642c3159d03cb677dad15b80eb23752e1303ba7..0cd0339235b41c307459670210ea35c27f69d66d 100644 (file)
--- a/lily/bar-line.cc
+++ b/lily/bar-line.cc
@@ -286,7 +286,12 @@ Bar_line::compound_barline (Grob *me, string str, Interval const &extent,
     m = dashed_bar_line (me, extent, hair);
   else if (str == "'")
     m = tick_bar_line (me, extent.at (UP), rounded);
-
+  else if (str == "kievan")
+   {
+    me->set_property ("layer", scm_from_int (1));
+    m.add_stencil (Font_interface::get_default_font (me)->find_by_name ("scripts.barline.kievan"));
+    m = *unsmob_stencil (scm_call_1 (ly_lily_module_constant ("stencil-whiteout"), m.smobbed_copy ()));
+   }
   return m;
 }