From 48cfe390006455a0e6ea6e496a63dc370c34318a Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Fri, 26 Aug 2005 00:41:56 +0000
Subject: [PATCH] (discretionary_processing): look up origin for
 programming_error too.

---
 lily/grob.cc | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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 ()
-- 
2.39.5