Function to add articulation to all notes

[Caagr98]

Sometimes when having a long section of staccato, it's a bit tedious to add -. 
to all notes, so then it's useful to have a function which automatically adds 
an articulation to all notes. I have one such function here:

addArticulation =
#(define-music-function (event music) (ly:event? ly:music?)
   (music-map
    (lambda (mus)
     (if (music-is-of-type? mus 'note-event)
      (if (not (memq 'articulations ; Don't add staccato if there already exist 
an articulation
                     (map car (ly:music-mutable-properties mus))))
        (ly:music-set-property! mus 'articulations (list event))))
     mus)
    music))

However, this function adds the articulation to all notes in chords (leading to 
multiple staccato dots), which is not what I want. Is there any better way to 
do this?