Doc: ensure all level 3 and 4 headings have nodes (2967)

[lilypond.git] / lily / note-head.cc

diff --git a/lily/note-head.cc b/lily/note-head.cc
index 3ca686b2f3bbb785345a385aaf63d0365d77536a..287b10dc043a42ce8ebe613422a8c51fe916874b 100644 (file)
--- 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 ())
     {