X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fnote-head.cc;h=287b10dc043a42ce8ebe613422a8c51fe916874b;hb=a713d376200adcb6eda27c8667eceb52116de341;hp=3ca686b2f3bbb785345a385aaf63d0365d77536a;hpb=d61cf3bbdb1c6670a127ba3baddf2f04d3e34fd3;p=lilypond.git

diff --git a/lily/note-head.cc b/lily/note-head.cc
index 3ca686b2f3..287b10dc04 100644
--- a/lily/note-head.cc
+++ b/lily/note-head.cc
@@ -64,7 +64,8 @@ internal_print (Grob *me, string *font_char)
   if (style == "mensural"
       || style == "neomensural"
       || style == "petrucci"
-      || style == "baroque")
+      || style == "baroque"
+      || style == "kievan")
     {
       if (!Staff_symbol_referencer::on_line
           (me,
@@ -79,6 +80,15 @@ internal_print (Grob *me, string *font_char)
         }
     }
 
+  if (style == "kievan"
+      && 3 == robust_scm2int (me->get_property ("duration-log"), 2))
+    {
+      Grob *stem = unsmob_grob (me->get_object ("stem"));
+      Grob *beam = unsmob_grob (stem->get_object ("beam"));
+      if (beam)
+        out = fm->find_by_name (idx_either + "2kievan");
+    }
+
   idx_either += suffix;
   if (out.is_empty ())
     {