How to detect if NoteColumn has an arpeggio with 2.18.0?

[Thomas Morley]

Hi,

how can I detect whether a NoteColumn has an arpeggio?

With 2.16.2 I used to use (ly:grob-object grob 'arpeggio)
Though, with 2.18 the 'arpeggio-property was removed. How to do it nowadays?

For reference look at the terminal output of:

arpeggio-at-note-column-info =
\override Staff.NoteColumn #'after-line-breaking =
#(lambda (grob)
  (let* ((arpeggio (ly:grob-object grob 'arpeggio))
         (arp-is-int-prop?
           (if (member 'arpeggio all-internal-grob-properties) #t #f)))
  (format #t "\n\tused LilyPond-version ~a" (lilypond-version))
  (format #t "\n\t'arpeggio is internal-grob-property? ~a" arp-is-int-prop?)
  (format #t "\n\tNoteColumn has arpeggio? ~a" arpeggio)))

\relative c' {
    \arpeggio-at-note-column-info
    <c e g c>\arpeggio
}

Cheers,
  Harm