From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 10 Jun 2005 09:29:03 +0000 (+0000)
Subject: (main_with_guile): copy be_verbose_global into
X-Git-Tag: release/2.5.30~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=88dfa287dd0fdb5666000667eebad9cbbc5ba4cf;p=lilypond.git

(main_with_guile): copy be_verbose_global into
ly_set_option()
---

diff --git a/ChangeLog b/ChangeLog
index 144c2109c7..39f9b04e43 100644
--- 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 415425bef6..94f020f3bc 100644
--- 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 23e60cf61b..1df79b1682 100644
--- 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",