From: hanwen <hanwen>
Date: Fri, 11 Mar 2005 01:47:57 +0000 (+0000)
Subject: (output-framework): put scaling in
X-Git-Tag: release/2.5.23~365
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1a2eafe8b9f3abe20ede7f46bf398e462cbb7496;p=lilypond.git

(output-framework): put scaling in
document header. Apply scaling only once.
---

diff --git a/scm/framework-svg.scm b/scm/framework-svg.scm
index 2cea3735a0..f1937889e2 100644
--- a/scm/framework-svg.scm
+++ b/scm/framework-svg.scm
@@ -41,7 +41,7 @@
 	 (page-set? (or (> page-count 1) landscape?)))
 
     (ly:outputter-output-scheme outputter
-				`(set! lily-unit-length ,unit-length))
+				`(begin (set! lily-unit-length ,unit-length) ""))
     (dump (eo 'svg
 	      '(xmlns . "http://www.w3.org/2000/svg")
 	      '(version . "1.2")