From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 14 Nov 2004 15:41:39 +0000 (+0000)
Subject: (text): uncomment dribble.
X-Git-Tag: release/2.5.14~562
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8d5400ce1575debc35eee1616d5623e84a8f28dc;p=lilypond.git

(text): uncomment dribble.
---

diff --git a/lily/lilypond-key.cc b/lily/lilypond-key.cc
index 80031c6fd3..21d3f6ed61 100644
--- a/lily/lilypond-key.cc
+++ b/lily/lilypond-key.cc
@@ -212,7 +212,7 @@ Lilypond_general_key::do_compare (Object_key const* key)const
   if (c)
     return c;
 
-  
+v  
   c = sign (disambiguation_count_ - other->disambiguation_count_);
   if (c)
     return c;
diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index bdb49bc385..d15c9951d7 100644
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -280,12 +280,14 @@ lilypond -fgnome input/simple-song.ly
 ;;design:20.0
 
 (define (text font string)
-  (stderr "font-name: ~S\n" (ly:font-name font))
-  ;; TODO s/filename/file-name/
-  (stderr "font-filename: ~S\n" (ly:font-filename font))
-  
-  (stderr "pango-font-name: ~S\n" (pango-font-name font))
-  (stderr "pango-font-size: ~S\n" (pango-font-size font))
+  (if #f
+      (begin
+	(stderr "font-name: ~S\n" (ly:font-name font))
+	;; TODO s/filename/file-name/
+	(stderr "font-filename: ~S\n" (ly:font-filename font))
+	
+	(stderr "pango-font-name: ~S\n" (pango-font-name font))
+	(stderr "pango-font-size: ~S\n" (pango-font-size font))))
   
   (make <gnome-canvas-text>
     #:parent (canvas-root)