* input/bugs/rhytmicstaff-tie.ly: add file.

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

diff --git a/lily/scm-option.cc b/lily/scm-option.cc
index 3b5de500c13df0b9a85cf987615cfde7119bb697..39f3094356b17f8ca6f94fc65977b35a50d53d35 100644 (file)
--- a/lily/scm-option.cc
+++ b/lily/scm-option.cc
@@ -13,6 +13,7 @@
 #include "lily-guile.hh"
 #include "scm-option.hh"
 #include "warn.hh"
+#include "main.hh"
 
 /*
   This interface to option setting is meant for setting options are
@@ -37,7 +38,7 @@ int testing_level_global;
 /*
   Backwards compatibility.
  */
-bool lily_1_8_relative = true;
+bool lily_1_8_relative = false;
 bool lily_1_8_compatibility_used = false;
 
 /*
@@ -148,6 +149,8 @@ LY_DEFINE (ly_get_option, "ly:get-option", 1, 0, 0, (SCM var),
           "Report whether old-relative compatibility mode is necessary\n"
           "@item old-relative\n"
           "Report whether old-relative compatibility mode is used\n"
+          "@item verbose\n"
+          "Report whether we are running in verbose mode\n"
           "@end table\n"
           "\n")
 {
@@ -159,6 +162,10 @@ LY_DEFINE (ly_get_option, "ly:get-option", 1, 0, 0, (SCM var),
     {
       return gh_bool2scm (lily_1_8_relative);
     }
+  if (var == ly_symbol2scm ("verbose"))
+    {
+      return gh_bool2scm (verbose_global_b);
+    }  
   else
     {
       warning (_("Unknown internal option!"));