CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/10/18 22:26:54
Modified files:
. : ChangeLog
scm : translation-functions.scm
Log message:
(format-new-bass-figure): also
allow plus in combination with _
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.4189&tr2=1.4190&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/translation-functions.scm.diff?tr1=1.16&tr2=1.17&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.4189 lilypond/ChangeLog:1.4190
--- lilypond/ChangeLog:1.4189 Mon Oct 17 15:49:36 2005
+++ lilypond/ChangeLog Tue Oct 18 22:26:54 2005
@@ -1,3 +1,8 @@
+2005-10-19 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+
+ * scm/translation-functions.scm (format-new-bass-figure): also
+ allow plus in combination with _
+
2005-10-17 Han-Wen Nienhuys <[EMAIL PROTECTED]>
* lily/note-collision.cc (check_meshing_chords): don't wipe
Index: lilypond/scm/translation-functions.scm
diff -u lilypond/scm/translation-functions.scm:1.16
lilypond/scm/translation-functions.scm:1.17
--- lilypond/scm/translation-functions.scm:1.16 Mon Oct 17 15:34:55 2005
+++ lilypond/scm/translation-functions.scm Tue Oct 18 22:26:54 2005
@@ -77,6 +77,7 @@
(plus-markup (if (eq? #t (ly:music-property event 'augmented))
(markup #:number "+")
#f))
+
(alt-dir (ly:context-property context 'figuredBassAlterationDirection))
)
@@ -104,12 +105,15 @@
#:pad-x 0.2 alt-markup
)))
+
(if plus-markup
(set! fig-markup
- (markup #:put-adjacent
- fig-markup
- X LEFT
- #:pad-x 0.2 plus-markup)))
+ (if fig-markup
+ (markup #:put-adjacent
+ fig-markup
+ X LEFT
+ #:pad-x 0.2 plus-markup)
+ plus-markup)))
(if (markup? fig-markup)
(markup #:fontsize -2 fig-markup)
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
