Add \pointAndClick[Off, On]

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

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 0ed5d49f5bec759b635a68aa95be9e53a2d7b243..c0d43eb980f74b66856e5a2fa8c559320b89e8a4 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -349,3 +349,10 @@ predefinedFretboardsOn = {
   \set FretBoards.predefinedDiagramTable = #fretboard-table
 }
 
+pointAndClickOff = #(define-music-function (parser location) ()
+                      (ly:set-option 'point-and-click #f)
+                      (make-music 'SequentialMusic 'void #t))
+
+pointAndClickOn = #(define-music-function (parser location) ()
+                      (ly:set-option 'point-and-click #t)
+                      (make-music 'SequentialMusic 'void #t))