From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 26 Aug 2005 00:41:56 +0000 (+0000)
Subject: (discretionary_processing): look up origin for
X-Git-Tag: release/2.7.8~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f285cf0c1bf3bc5150964d751863f3214df984f9;p=lilypond.git

(discretionary_processing): look up origin for
programming_error too.
---

diff --git a/lily/grob.cc b/lily/grob.cc
index 1343cea453..b8b82271ca 100644
--- a/lily/grob.cc
+++ b/lily/grob.cc
@@ -629,8 +629,16 @@ Grob::warning (String s) const
 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 ()