Web-de: fix linkage for manuals

[lilypond.git] / scm / framework-svg.scm

diff --git a/scm/framework-svg.scm b/scm/framework-svg.scm
index c6c342bf1c95a29393cf839c4c0cf6bab1dcfadc..f10125caa8d3e0e5a1932cf92ba4d27058b085f6 100644 (file)
--- a/scm/framework-svg.scm
+++ b/scm/framework-svg.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2004--2010 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 2004--2011 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;                Patrick McCarty <pnorcks@gmail.com>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
@@ -128,6 +128,8 @@ src: url('~a');
        (module-define! (ly:outputter-module outputter) 'paper paper))
     (dump (svg-begin page-width page-height
                     0 0 device-width device-height))
+    (if (ly:get-option 'svg-woff)
+       (module-remove! (ly:outputter-module outputter) 'paper))
     (if (ly:get-option 'svg-woff)
        (dump (woff-header paper (dirname filename))))
     (dump (comment (format "Page: ~S/~S" page-number page-count)))
@@ -157,7 +159,9 @@ src: url('~a');
        (module-define! (ly:outputter-module outputter) 'paper paper))
     (dump (svg-begin svg-width svg-height
                     left-x (- top-y) device-width device-height))
-    (if (ly:get-option svg-woff)
+    (if (ly:get-option 'svg-woff)
+       (module-remove! (ly:outputter-module outputter) 'paper))
+    (if (ly:get-option 'svg-woff)
        (dump (woff-header paper (dirname filename))))
     (ly:outputter-output-scheme outputter
                                `(begin (set! lily-unit-length ,unit-length)