Handle unwritable midi file.

[lilypond.git] / lily / scm-option.cc

diff --git a/lily/scm-option.cc b/lily/scm-option.cc
index d83645137390b6f09649dc7164f9ee2f4e95bc93..185d5583309d44479df90fc48d29b8ee20997078 100644 (file)
--- 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"