From: Phil Holmes <mail@philholmes.net>
Date: Sat, 31 Mar 2012 15:02:35 +0000 (+0100)
Subject: Directs displaying-grob-ancestry to stderr final
X-Git-Tag: release/2.15.36-1~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=163803853566779a08a444482d58f7fc8e876318;p=lilypond.git

Directs displaying-grob-ancestry to stderr final

Final version of patch sending snippet output to stderr rather than stdout.
---

diff --git a/Documentation/snippets/displaying-grob-ancestry.ly b/Documentation/snippets/displaying-grob-ancestry.ly
index 3a20732484..c05e1369a8 100644
--- a/Documentation/snippets/displaying-grob-ancestry.ly
+++ b/Documentation/snippets/displaying-grob-ancestry.ly
@@ -195,11 +195,10 @@ NoteHead X,Y: NoteColumn
     (format #f "~&")))
 
 #(define (display-ancestry grob)
-   (display
-    (string-append
-     (format #f "~3&~a~2%" (make-string 36 #\-))
-     (format-ancestry (get-ancestry grob) 0)
-     (format #f "~2&"))))
+   (format (current-error-port)
+      "~3&~a~2%~a~&"
+      (make-string 36 #\-)
+      (format-ancestry (get-ancestry grob) 0)))
 
 \relative c' {
   \once \override NoteHead #'before-line-breaking = #display-ancestry