* input/regression/slur-area.ly: move from test/

[lilypond.git] / scm / drums.scm

diff --git a/scm/drums.scm b/scm/drums.scm
index 426c0e8b1ff70c13656ec305c58b1c52e09149ce..0ba9c9f0f63b54ad69c92f13f5723712c0dbd6c4 100644 (file)
--- a/scm/drums.scm
+++ b/scm/drums.scm
@@ -84,6 +84,10 @@
        (fivedown         de    ,(ly:make-pitch -1 2 0))
 ))
 
+(define-public (set-drum-kit kit value)
+  (set! percussive-instrument-settings
+       (assoc-set! percussive-instrument-settings kit value)))
+  
 (define-public (get-drum-kit kit)
   (assoc-get-default kit percussive-instrument-settings '()))