From 102788f3ca0539b887031989fe8619163f5b7e61 Mon Sep 17 00:00:00 2001
From: Carl Sorensen <c_sorensen@byu.edu>
Date: Wed, 13 Aug 2008 07:46:33 -0600
Subject: [PATCH] Add \pointAndClick[Off, On]

---
 Documentation/user/setup.itely | 15 ++++++++++++---
 ly/property-init.ly            |  7 +++++++
 2 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/Documentation/user/setup.itely b/Documentation/user/setup.itely
index 1daccd6b6d..daf89d72c6 100644
--- 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 0ed5d49f5b..c0d43eb980 100644
--- 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))
-- 
2.39.5