CVSROOT:        /cvsroot/lilypond
Module name:    lilypond
Branch:         
Changes by:     Han-Wen Nienhuys <[EMAIL PROTECTED]>    05/07/21 21:36:05

Modified files:
        lily           : note-head.cc 
        ly             : music-functions-init.ly 
        scm            : define-grobs.scm define-music-types.scm 

Log message:
        release commit

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/lily/note-head.cc.diff?tr1=1.146&tr2=1.147&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ly/music-functions-init.ly.diff?tr1=1.30&tr2=1.31&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-grobs.scm.diff?tr1=1.215&tr2=1.216&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-music-types.scm.diff?tr1=1.61&tr2=1.62&r1=text&r2=text

Patches:
Index: lilypond/lily/note-head.cc
diff -u lilypond/lily/note-head.cc:1.146 lilypond/lily/note-head.cc:1.147
--- lilypond/lily/note-head.cc:1.146    Tue Jul 19 10:37:52 2005
+++ lilypond/lily/note-head.cc  Thu Jul 21 21:36:04 2005
@@ -66,6 +66,7 @@
   if (out.is_empty ())
     {
       me->warning (_f ("note head `%s' not found", idx.to_str0 ()));
+      out = Stencil (Box(Interval (0, 0),Interval (0, 0)), SCM_EOL);
     }
   else
     {
Index: lilypond/ly/music-functions-init.ly
diff -u lilypond/ly/music-functions-init.ly:1.30 
lilypond/ly/music-functions-init.ly:1.31
--- lilypond/ly/music-functions-init.ly:1.30    Thu Jul 21 16:20:24 2005
+++ lilypond/ly/music-functions-init.ly Thu Jul 21 21:36:04 2005
@@ -147,7 +147,9 @@
      (if (ly:pitch? trill-pitch)
         (for-each (lambda (m) (ly:music-set-property! m 'trill-pitch 
trill-pitch))
                   trill-events)
-        (ly:warning (_ "Second argument of \\pitchedTrill should be single 
note.")))
+        (begin
+          (ly:warning (_ "Second argument of \\pitchedTrill should be single 
note: "))
+          (display sec-note-events)))
 
      main-note))
 
Index: lilypond/scm/define-grobs.scm
diff -u lilypond/scm/define-grobs.scm:1.215 lilypond/scm/define-grobs.scm:1.216
--- lilypond/scm/define-grobs.scm:1.215 Thu Jul 21 12:14:35 2005
+++ lilypond/scm/define-grobs.scm       Thu Jul 21 21:36:05 2005
@@ -40,7 +40,7 @@
        (staff-padding . 0.25)
        (script-priority . 0)
        (meta . ((class . Item)
-                (interfaces . (side-position-interface script-interface
+                (interfaces . (side-position-interface script-interface 
accidental-interface
                                accidental-suggestion-interface 
self-alignment-interface
                                font-interface))))
        ))
Index: lilypond/scm/define-music-types.scm
diff -u lilypond/scm/define-music-types.scm:1.61 
lilypond/scm/define-music-types.scm:1.62
--- lilypond/scm/define-music-types.scm:1.61    Tue Jul 19 15:42:40 2005
+++ lilypond/scm/define-music-types.scm Thu Jul 21 21:36:05 2005
@@ -125,7 +125,7 @@
      . (
        (description .  "A note that is part of a cluster.")
 
-                                       ; not a note-event, to ensure that 
Note_engraver doesn't eat it. 
+       ;; not a note-event, to ensure that Note_engraver doesn't eat it. 
        (types . (general-music cluster-note-event melodic-event rhythmic-event 
event))
        ))
     
@@ -346,7 +346,7 @@
 
 ")
        (types . (general-music layout-instruction))
-       (iterator-ctor . ,      Push_property_iterator::constructor)
+       (iterator-ctor . ,Push_property_iterator::constructor)
        ))
     (PartCombineMusic
      . (
@@ -362,7 +362,7 @@
        (description . "Start or end phrasing slur. 
 
 Syntax NOTE \\(  and \\) NOTE")
-       (types . (general-music span-event phrasing-slur-event))
+       (types . (general-music span-event event phrasing-slur-event))
        ))
     
     (PropertySet
@@ -486,7 +486,7 @@
        (description . "Start or end slur. 
 
 Syntax NOTE(    and )NOTE")
-       (types . (general-music span-event slur-event))
+       (types . (general-music span-event event slur-event))
        ))
     
     (StaffSpanEvent
@@ -504,13 +504,13 @@
     (TextSpanEvent
      . (
        (description . "Start a text spanner like 8va.....|")
-       (types . (general-music span-event text-span-event))
+       (types . (general-music span-event event text-span-event))
        ))
     
     (TrillSpanEvent
      . (
        (description . "Start a trill spanner tr~~~")
-       (types . (general-music span-event trill-span-event))
+       (types . (general-music span-event event trill-span-event))
        ))
     
     (TimeScaledMusic


_______________________________________________
Lilypond-cvs mailing list
Lilypond-cvs@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-cvs

Reply via email to