* scm/define-markup-commands.scm (upright): New markup command.

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 1c24c49ceb5dbef65ca61dc986a18b3a1da71783..c0ceebe06cdabadc8737c5e166794313868cf7c8 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -141,6 +141,11 @@ this is bold and italic
   (interpret-markup
    paper (prepend-alist-chain 'font-family 'typewriter props) arg))
 
+(def-markup-command (upright paper props arg) (markup?)
+  "Set font shape to @code{upright}."
+  (interpret-markup
+   paper (prepend-alist-chain 'font-shape 'upright props) arg))
+
 (def-markup-command (doublesharp paper props) ()
   (interpret-markup paper props (markup #:musicglyph "accidentals-4")))
 (def-markup-command (threeqsharp paper props) ()