release commit

diff --git a/Documentation/topdocs/AUTHORS.texi b/Documentation/topdocs/AUTHORS.texi
index 2114e9e6be2ec18eec085b7737389121594e9fab..c7a0e92656f7489b4e305e3d4653c839b4672ecc 100644 (file)
--- a/Documentation/topdocs/AUTHORS.texi
+++ b/Documentation/topdocs/AUTHORS.texi
@@ -25,8 +25,6 @@ list is alphabetically ordered.
     lots of testing, fixes, general comments and contributions.
 @item @email{lconrad@@laymusic.org, Laura Conrad},
     fixes to abc2ly.
-@item @email{Jan.A.Fagertun@@trondheim.online.no, Jan Arne Fagertun},
-    @TeX{} titling and lytodvi.sh.
 @item @email{foka@@debian.org, Anthony Fok}, 
     Debian package: debian/*.
 @item @email{, David Gonz@'alez},

diff --git a/lily/tab-staff-symbol-engraver.cc b/lily/tab-staff-symbol-engraver.cc
new file mode 100644 (file)
index 0000000..c6c22b5
--- /dev/null
+++ b/lily/tab-staff-symbol-engraver.cc
@@ -0,0 +1,45 @@
+/*
+  tab-staff-symbol-engraver.cc -- implement Tab_staff_symbol_engraver
+
+  source file of the GNU LilyPond music typesetter
+
+  (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+*/
+
+#include "staff-symbol-engraver.hh"
+#include "spanner.hh"
+
+class Tab_staff_symbol_engraver : public Staff_symbol_engraver
+{
+public:
+  TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver);
+protected:
+  virtual void start_spanner ();
+};
+
+void
+Tab_staff_symbol_engraver::start_spanner ()
+{
+  bool init = !span_;
+  Staff_symbol_engraver::start_spanner ();
+  if (init)
+    {
+      int k = scm_ilength (get_property ("stringTunings"));
+      if (k >= 0)
+       span_->set_property ("line-count", scm_int2num (k));
+    }
+}
+
+Tab_staff_symbol_engraver::Tab_staff_symbol_engraver ()
+{
+}
+
+ADD_TRANSLATOR (Tab_staff_symbol_engraver,
+               /* descr */ "Create a staff-symbol, but look at stringTunings for the number of lines."
+               "staff lines.",
+               /* creats*/ "StaffSymbol",
+               /* accepts */ "staff-span-event",
+               /* acks  */ "grob-interface",
+               /* reads */ "stringTunings",
+               /* write */ "");