]> git.donarmstrong.com Git - lilypond.git/commitdiff
Directs displaying-grob-ancestry to stderr final
authorPhil Holmes <mail@philholmes.net>
Sat, 31 Mar 2012 15:02:35 +0000 (16:02 +0100)
committerPhil Holmes <mail@philholmes.net>
Sat, 31 Mar 2012 15:04:44 +0000 (16:04 +0100)
Final version of patch sending snippet output to stderr rather than stdout.

Documentation/snippets/displaying-grob-ancestry.ly

index 3a20732484400e6096b21c79fcf5bc399a3c15c6..c05e1369a8d37be74865370c90750680adc86f36 100644 (file)
@@ -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