X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fproperty-init.ly;h=2c538ce86cb8dc0c308d67ba97c807e7902bcfb8;hb=d03ae375a34eaac79b224c4d01bd24749c4c6787;hp=7bd237b333c1274fda5ad28c8d65f66bfd0ed52e;hpb=8d2099810e7e28c3a8053558c9fe7501361d6137;p=lilypond.git

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 7bd237b333..2c538ce86c 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -393,19 +393,17 @@ phrasingSlurSolid =
 %% point and click
 
 pointAndClickOn  =
-#(define-music-function (parser location) ()
+#(define-void-function (parser location) ()
    (_i "Enable generation of code in final-format (e.g. pdf) files to reference the
 originating lilypond source statement;
 this is helpful when developing a score but generates bigger final-format files.")
-   (ly:set-option 'point-and-click #t)
-   (make-music 'SequentialMusic 'void #t))
+   (ly:set-option 'point-and-click #t))
 
 pointAndClickOff =
-#(define-music-function (parser location) ()
+#(define-void-function (parser location) ()
    (_i "Suppress generating extra code in final-format (e.g. pdf) files to point
 back to the lilypond source statement.")
-   (ly:set-option 'point-and-click #f)
-   (make-music 'SequentialMusic 'void #t))
+   (ly:set-option 'point-and-click #f))
 
 pointAndClickTypes =
 #(define-void-function (parser location types) (symbol-list-or-symbol?)