From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 10 Apr 2004 22:57:41 +0000 (+0000)
Subject: (add-cmr-fonts): caps is eccc, ecsc is slanted caps.
X-Git-Tag: release/2.3.0~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c7455a37dd517ad567f230e2f18cbd93096ea216;p=lilypond.git

(add-cmr-fonts): caps is eccc, ecsc is slanted caps.
---

diff --git a/ChangeLog b/ChangeLog
index c34663cc5d..7a657984d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-04-11  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* scm/font.scm (add-cmr-fonts): caps is eccc, ecsc is slanted caps.
+
 	* scm/output-ps.scm (text): split string into spaces, use moveto
 	for setting space. 
 	
diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly
index 26d8cc733c..4a295f466f 100644
--- a/ly/declarations-init.ly
+++ b/ly/declarations-init.ly
@@ -64,7 +64,7 @@ melismaEnd = #(make-span-event 'ManualMelismaEvent STOP)
       )
 
     #(define text-font-defaults
-      '((font-encoding . latin1)
+      '((font-encoding . TeX-tex)
 	(baseline-skip . 2)
 	(word-space . 0.6)
 	))
diff --git a/scm/font.scm b/scm/font.scm
index d6e4549dad..01c3d10aeb 100644
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -297,6 +297,9 @@
 		)))
      
      (#(roman caps medium) .
+      (10.0 . #(,(delay (ly:font-load "eccc10")))))
+
+     (#(roman slanted-caps medium) .
       (10.0 . #(,(delay (ly:font-load "ecsc10")))))
 
      (#(roman upright bold-narrow ) .