CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/08/26 00:41:56
Modified files:
lily : grob.cc
Log message:
(discretionary_processing): look up origin for
programming_error too.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/lily/grob.cc.diff?tr1=1.141&tr2=1.142&r1=text&r2=text
Patches:
Index: lilypond/lily/grob.cc
diff -u lilypond/lily/grob.cc:1.141 lilypond/lily/grob.cc:1.142
--- lilypond/lily/grob.cc:1.141 Sat Aug 13 21:35:23 2005
+++ lilypond/lily/grob.cc Fri Aug 26 00:41:56 2005
@@ -629,8 +629,16 @@
void
Grob::programming_error (String s) const
{
+ SCM cause = self_scm ();
+ while (Grob *g = unsmob_grob (cause))
+ cause = g->get_property ("cause");
+
s = _f ("programming error: %s", s);
- message (s);
+
+ if (Music *m = unsmob_music (cause))
+ m->origin ()->message (s);
+ else
+ ::message (s);
}
void
Grob::discretionary_processing ()
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
