Issue 1954: Implement event type filtering for pointAndClick events.

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 2de518fb461e706e684b950baabf79e1eec60a7c..60232edce0cd2e7462085b95c2f6e5755297b2dd 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -343,6 +343,10 @@ back to the lilypond source statement.")
    (ly:set-option 'point-and-click #f)
    (make-music 'SequentialMusic 'void #t))
 
+pointAndClickTypes =
+#(define-void-function (parser location types) (list-or-symbol?)
+  (_i "Set a type or list of types (such as @code{#'note-event}) for which point-and-click info is generated.")
+  (ly:set-option 'point-and-click types))
 
 %% predefined fretboards