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