(define-fonts): Bugfix.

diff --git a/ChangeLog b/ChangeLog
index c438eed4cb54878740458cc258b74b4f5bb55acd..08d17f5b017a1fa5b85ec67ae8242f7f0255ca15 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-04-11  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/output-ps.scm (define-fonts): Bugfix.
+
        * lily/grob.cc: Add penalty to interface.
 
        * lily/include/paper-line.hh (class Paper_line): New member

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 71e4a214645593ab27460d932ccf7a0e16dca0cb..7a1d8e03af8bd86ef6d9103b19dad9ed0e14e59f 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -201,7 +201,8 @@
           (font-encoding (assoc-get 'output-name coding-alist))
           (command (font-command font))
           ;; FIXME -- see (font-command )
-          (plain (if font-encoding (get-coding-command font-encoding)
+          (plain (if font-encoding
+                     (font-command font . (get-coding-command font-encoding))
                      command))
           (designsize (ly:font-design-size font))
           (magnification (* (ly:font-magnification font)))