(Module): read fonts from fonts/extension,

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

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a2c2f53f8701cf5bc80423060690b4e856d63390..1176c6d66fa3950e00d1c4b5589162fb7f3e4841 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -234,10 +234,12 @@
                       ((and bare-file-name
                             (string-match "\\.(otf|cff)" bare-file-name))
 
+                       ; replace with the CFF.ps, which lives in a
+                       ; separate subdir.
                        (for-each (lambda (tup)  (set! bare-file-name
                                                       (string-regexp-substitute (car tup) (cdr tup) bare-file-name)))
                                  '(("/fonts/otf/" . "/ps/")
-                                   ("/fonts/cff/" . "/cff/")
+                                   ("/fonts/cff/" . "/ps/")
                                    ("\\.(otf|cff)" . ".cff.ps")))
 
                        (cached-file-contents bare-file-name))