X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-functions.scm;h=611879ae8b517ec9bb23d3507d1cdd3b10af84b6;hb=ca016880c383a964f3d3542cfba64ada0e1d41cd;hp=1b679a7228ab964d4cd2bb1de76ccc5aef4c8bc6;hpb=1dbadfcf82a2cfb2a9cccada47faf449ddf896ed;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)))