From: David Kastrup <dak@gnu.org>
Date: Sat, 4 May 2013 13:24:24 +0000 (+0200)
Subject: Issue 3349: missing duration in \displayLilyMusic after a triplet
X-Git-Tag: release/2.17.19-1~8^2~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=66dc2359d1f875fa3b3cbe9f12dfe9d2c2ff42df;p=lilypond.git

Issue 3349: missing duration in \displayLilyMusic after a triplet
---

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 3677051981..82e227c8f5 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -666,21 +666,18 @@ Otherwise, return #f."
          (formatted-span
           (and span (duration->lily-string span #:force-duration #t)))
 	 (scale (/ num den))
-	 (dur (*previous-duration*))
 	 (time-scale (*time-scale*)))
-
-    (parameterize ((*force-line-break* #f)
-		   (*previous-duration*
-		    (ly:make-duration (ly:duration-log dur)
-				      (ly:duration-dot-count dur)
-				      (* (ly:duration-scale dur)
-					 scale)))
-		   (*time-scale* (* time-scale scale)))
-      (format #f "\\tuplet ~a/~a ~@[~a ~]~a"
-	      den
-	      num
-              formatted-span
-	      (music->lily-string (ly:music-property times 'element) parser)))))
+    (*previous-duration* #f)
+    (let ((result
+           (parameterize ((*force-line-break* #f)
+                          (*time-scale* (* time-scale scale)))
+             (format #f "\\tuplet ~a/~a ~@[~a ~]~a"
+                     den
+                     num
+                     formatted-span
+                     (music->lily-string (ly:music-property times 'element) parser)))))
+      (*previous-duration* #f)
+      result)))
 
 (define-display-method RelativeOctaveMusic (m parser)
   (music->lily-string (ly:music-property m 'element) parser))