1;;;partcombineChords
2(let ((tag "PartCombineChords")(help  (_ "This directive instructs the LilyPond typesetter to combine notes from the voices into chords.\nUse with the Part Combine command.\nYou can delete the directive as any other object.")))
3 (if (d-Directive-standalone? tag)
4	(d-InfoDialog help)
5	(begin
6		(if (d-MoveCursorLeft)
7			(if (d-Directive-standalone? tag)
8			 	 (d-InfoDialog help)
9				(d-MoveCursorRight)))
10	(StandAloneDirectiveProto (cons tag "\\partcombineChords") #f "\npC\nDenemo\n48")
11	(d-DirectivePut-standalone-gy tag -44)
12	(d-DirectivePut-standalone-grob tag tag)
13	(d-MoveCursorRight)))
14(d-RefreshDisplay)
15(d-SetSaved #f))
16
17