From: Carl Sorensen <c_sorensen@byu.edu>
Date: Fri, 1 Aug 2008 13:44:36 +0000 (-0600)
Subject: Change fret markings to roman from old-roman
X-Git-Tag: release/2.11.55-1~9^2^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=173b8137f9b5d34eb56afbb054f3e2400fe3aaa2;p=lilypond.git

Change fret markings to roman from old-roman
---

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 4e1ebfa5d4..6378f7d12f 100644
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -435,12 +435,12 @@ Line thickness is given by @var{th}, fret & string spacing by
 	 (label-text
 	  (cond
            ((equal? number-type 'roman-lower)
-	    (fancy-format #f "~(~:@r~)" base-fret))
+	    (fancy-format #f "~(~@r~)" base-fret))
            ((equal? number-type 'roman-upper)
-	    (fancy-format #f "~:@r" base-fret))
+	    (fancy-format #f "~@r" base-fret))
            ((equal? 'arabic number-type)
 	    (fancy-format #f "~d" base-fret))
-           (else (fancy-format #f "~(~:@r~)" base-fret)))))
+           (else (fancy-format #f "~(~@r~)" base-fret)))))
     (if (eq? orientation 'normal)
 	(ly:stencil-translate-axis
 	 (sans-serif-stencil layout props (* size label-font-mag) label-text)