From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 11 Apr 2004 00:48:13 +0000 (+0000)
Subject: (define-fonts): Bugfix.
X-Git-Tag: release/2.3.0~20
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9c27eb4661de7ac96a4dec84371769b112382bc2;p=lilypond.git

(define-fonts): Bugfix.
---

diff --git a/ChangeLog b/ChangeLog
index c438eed4cb..08d17f5b01 100644
--- 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 71e4a21464..7a1d8e03af 100644
--- 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)))