From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 18 Oct 2005 22:26:54 +0000 (+0000)
Subject: (format-new-bass-figure): also
X-Git-Tag: release/2.7.14~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d2d195f824c458070680426d30dc728dc2f7ef41;p=lilypond.git

(format-new-bass-figure): also
allow plus in combination with _
---

diff --git a/ChangeLog b/ChangeLog
index 0959ed0449..fa054fa29e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/translation-functions.scm (format-new-bass-figure): also
+	allow plus in combination with _
+
 2005-10-17  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* lily/note-collision.cc (check_meshing_chords): don't wipe
diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index b16768d5fd..3f72803b28 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -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)