From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 1 Nov 2006 20:02:35 +0000 (+0100)
Subject: make \caps markup default to smallCaps
X-Git-Tag: release/2.10.0-2~34^2~40
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9a7ca21618b2f37dd06ae729b9d97dbc8e1a5b23;p=lilypond.git

make \caps markup default to smallCaps
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 4d87479283..73e243a6a1 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -896,7 +896,7 @@ some punctuation. It doesn't have any letters.  "
   "Set font size to -3."
   (interpret-markup layout (prepend-alist-chain 'font-size -3 props) arg))
 
-(define-markup-command (caps layout props arg) (markup?)
+(define-markup-command (fontCaps layout props arg) (markup?)
   "Set @code{font-shape} to @code{caps}."
   (interpret-markup layout (prepend-alist-chain 'font-shape 'caps props) arg))
 
@@ -966,6 +966,9 @@ some punctuation. It doesn't have any letters.  "
 						 #f
 						 #f)))
 
+(define-markup-command (caps layout props arg) (markup?)
+  (interpret-markup layout props (make-smallCaps-markup arg)))
+
 (define-markup-command (dynamic layout props arg) (markup?)
   "Use the dynamic font.  This font only contains @b{s}, @b{f}, @b{m},
 @b{z}, @b{p}, and @b{r}.  When producing phrases, like ``pi@`{u} @b{f}'', the