(main_with_guile): copy be_verbose_global into

ly_set_option()

diff --git a/ChangeLog b/ChangeLog
index 144c2109c75f7f6a35fed3c6142aed9325f41a93..39f9b04e43b41f400b9debdfe6f68c3450698ec9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-10  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * lily/main.cc (main_with_guile): copy be_verbose_global into
+       ly_set_option()
+
 2005-06-10  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * scm/backend-library.scm (postscript->pdf):

diff --git a/lily/main.cc b/lily/main.cc
index 415425bef6bccddccaa01ef542bf66e32d9f952a..94f020f3bc19abae622388c46e52cfb9bfd215b9 100644 (file)
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -526,6 +526,9 @@ main_with_guile (void *, int, char **)
 
   ly_c_init_guile ();
   call_constructors ();
+  ly_set_option (ly_symbol2scm ("verbose"), scm_from_bool (be_verbose_global));
+
+  
   init_global_tweak_registry ();
   init_fontconfig ();
 

diff --git a/lily/program-option.cc b/lily/program-option.cc
index 23e60cf61beac68cc9914395a923471ba84b0278..1df79b1682b687b6792969b21560bd96d9244d26 100644 (file)
--- a/lily/program-option.cc
+++ b/lily/program-option.cc
@@ -54,7 +54,8 @@ static Lilypond_option_init options[] = {
   {"gs-font-load", "#f",
    "load fonts via Ghostscript."},
   {"delete-intermediate-files", "#f",
-   "delete unusable PostScript files"},   
+   "delete unusable PostScript files"},
+  {"verbose", "#f", "value for the --verbose flag"},
   {"ttf-verbosity", "0",
    "how much verbosity for TTF font embedding?"},
   {"debug-gc", "#f",