X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscm-option.cc;h=185d5583309d44479df90fc48d29b8ee20997078;hb=34e6d3d79f3b5fc6188a20f9a2a5c0d34b2c81c8;hp=d83645137390b6f09649dc7164f9ee2f4e95bc93;hpb=58bcc84c9480dae1b21bc24d8396b91fe19e0131;p=lilypond.git

diff --git a/lily/scm-option.cc b/lily/scm-option.cc
index d836451373..185d558330 100644
--- a/lily/scm-option.cc
+++ b/lily/scm-option.cc
@@ -59,9 +59,10 @@ LY_DEFINE (ly_option_usage, "ly:option-usage", 0, 0, 0, (SCM),
   puts ("");
   printf (_ ("  The function ly:set-option allows for access to some internal variables.").to_str0 ());
   puts ("\n");
-  printf (_ ("Usage: lilypond -e \"(ly:set - option SYMBOL VAL)\"").to_str0 ());
+  printf (_ ("Usage: lilypond -e \"(ly : set - option SYMBOL VAL)\"").to_str0 ());
   puts ("\n");
   printf (_ ("Use help as  SYMBOL to get online help.").to_str0 ());
+  puts ("\n");
 
   exit (0);
   return SCM_UNSPECIFIED;
@@ -82,6 +83,8 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
 	   "@table @code\n"
 	   "@item help\n"
 	   "List all options.\n"
+	   "@item point-and-click\n"
+	   "Switch point & click on or off.\n"
 	   "@item midi-debug\n"
 	   "If set to true, generate human readable MIDI\n"
 	   "@item internal-type-checking\n"
@@ -96,7 +99,7 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
 	   "@end table\n"
 	   "\n"
 	   "This function is useful to call from the command line: @code{lilypond -e\n"
-	   "\"(ly:set - option 'midi-debug #t)\"}.\n")
+	   "\"(ly : set - option 'midi-debug #t)\"}.\n")
 {
   if (val == SCM_UNDEFINED)
     val = SCM_BOOL_T;
@@ -108,6 +111,8 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
     midi_debug_global_b = to_boolean (val);
   else if (var == ly_symbol2scm ("testing-level"))
     testing_level_global = scm_to_int (val);
+  else if (var == ly_symbol2scm ("point-and-click"))
+    point_and_click_global = to_boolean (val);
   else if (var == ly_symbol2scm ("parse-protect"))
     parse_protect_global = to_boolean (val);
   else if (var == ly_symbol2scm ("internal-type-checking"))
@@ -137,6 +142,8 @@ LY_DEFINE (ly_get_option, "ly:get-option", 1, 0, 0, (SCM var),
 	   "@table @code\n"
 	   "@item old-relative-used\n"
 	   "Report whether old-relative compatibility mode is necessary\n"
+	   "@item point-and-click\n"
+	   "Report whether point & click is switched on.\n"
 	   "@item old-relative\n"
 	   "Report whether old-relative compatibility mode is used\n"
 	   "@item verbose\n"