some sort of suppress-accidental?

[Mark Polesky]

entering { \displayMusic c'! } yields:

(make-music
  'EventChord
  'elements
  (list (make-music
          'NoteEvent
          'force-accidental
          #t
          'duration
          (ly:make-duration 2 0 1 1)
          'pitch
          (ly:make-pitch 0 0 0))))

I wish there were a similar way to suppress the printing of the
accidental from within the NoteEvent expression.

Something like 'suppress-accidental that would fit right where
'force-accidental goes in the scheme expression. Is that
possible? Would it be difficult to implement?

- Mark