Add \pointAndClick[Off, On]

diff --git a/Documentation/user/setup.itely b/Documentation/user/setup.itely
index 1daccd6b6d0c8a54f52a735ed626b9c0a28756fc..daf89d72c6276bb9cf8aceecfc8f0c75a95837f6 100644 (file)
--- a/Documentation/user/setup.itely
+++ b/Documentation/user/setup.itely
@@ -282,14 +282,23 @@ reducing the size of PDF and PS files, point and click may be switched
 off by issuing
 
 @example
-#(ly:set-option 'point-and-click #f)
+\pointAndClickOff
 @end example
 
 @noindent
-in a @file{.ly} file.  Alternately, you may pass this as an command-line
-option
+in a @file{.ly} file.  Point and click may be explicitly enabled with
+
+@example
+\pointAndClickOn
+@end example
+
+Alternately, you may disable point and click with a command-line
+option:
 
 @example
 lilypond -dno-point-and-click file.ly
 @end example
 
+@warning{You should always turn off point and click in any LilyPond
+files to be distributed to avoid including path information about
+your computer in the .pdf file, which can pose a security risk.}

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))