X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-functions.scm;h=611879ae8b517ec9bb23d3507d1cdd3b10af84b6;hb=5acdb37da47bf85c010e072b6e0dcdd1dfaf9c1f;hp=1b679a7228ab964d4cd2bb1de76ccc5aef4c8bc6;hpb=30773c8a2cca86f5f4a6d3c4e0ba4359e5d05f91;p=lilypond.git

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 1b679a7228..611879ae8b 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -234,8 +234,7 @@ which often can be read back in order to generate an equivalent expression."
   "Display the music expression using LilyPond syntax"
   (memoize-clef-names supported-clefs)
   (parameterize ((*indent* 0)
-                 (*previous-duration* (ly:make-duration 2))
-                 (*force-duration* force-duration))
+                 (*omit-duration* #f))
                 (display (music->lily-string expr parser) port)
                 (newline port)))