]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/note-column.cc
Run fixcc + astyle2.02.
[lilypond.git] / lily / note-column.cc
index f3ff4f08d642b23816075b73c3b6893af891a054..da52093797fb1f3b98c91f42c07ad0835f70a441 100644 (file)
@@ -64,6 +64,18 @@ Note_column::get_stem (Grob *me)
   return unsmob_item (s);
 }
 
+Item *
+Note_column::get_flag (Grob *me)
+{
+  Item *stem = get_stem (me);
+  if (stem)
+    {
+      SCM s = stem->get_object ("flag");
+      return unsmob_item (s);
+    }
+  return 0;
+}
+
 Slice
 Note_column::head_positions_interval (Grob *me)
 {