;Unmeasured
(let ((tag "Unmeasured"))
	(if (d-Directive-timesig? tag)
		(begin (disp "Delet")
			(d-DirectiveDelete-timesig tag)
			(d-InitialTimeSig))
		(begin
		    (d-InfoDialog (_ "Set initial time signatures on other staffs as needed. To restore normal time signatures repeat this command (Unmeasured Staff)"))
		    (d-InitialTimeSig "256/1")
		    (d-DirectivePut-timesig-postfix tag "\\cadenzaOn ")
		     (d-DirectivePut-timesig-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_LILYPOND))
		    (d-DirectivePut-timesig-graphic tag "\n \n")))
            (d-SetSaved #f))