*** empty log message ***

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

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 53d6447c98484e36a8b27a9b4f115fecea2d683c..10934b84e86812e3d2e4c97c568386c350578686 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-module (scm framework-ps))
 
@@ -409,7 +409,7 @@
                   (lambda (x y) (string<? (cadr x) (cadr y))))))
 
 
-          (font-loader (if (ly:get-option 'gs-font-load)
+          (font-loader (if (ly:get-option 'gs-load-fonts)
                            load-font-via-GS
                            load-font))
                         
@@ -520,7 +520,7 @@
           ;;
           (list
 
-           (if (ly:get-option 'eps-pad-boxes) 
+           (if (ly:get-option 'pad-eps-boxes) 
                (min left-overshoot (car xext))
                (car xext))
            (car yext) (cdr xext) (cdr yext))))
@@ -544,7 +544,7 @@
 
     ;; skip booktitles.
     (if (and
-        (not (ly:get-option 'preview-include-book-title))
+        (not (ly:get-option 'include-book-title-preview))
         (pair? systems)
         (ly:prob-property (car systems) 'is-book-title #f))