Merge branch 'lilypond/translation' into staging

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index 4726a0fd5fd082105b0aa625f03fed6ce70ae521..4667ed19d5a17f383e083494a0c625ceaef1eb79 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -864,6 +864,8 @@ book_body:
                push_paper (parser, $$->paper_);
                $$->header_ = parser->lexer_->lookup_identifier ("$defaultheader");
                parser->lexer_->set_identifier (ly_symbol2scm ("$current-book"), $$->self_scm ());
+               parser->lexer_->set_identifier (ly_symbol2scm ("book-output-suffix"), SCM_BOOL_F);
+               parser->lexer_->set_identifier (ly_symbol2scm ("book-filename"), SCM_BOOL_F);
        }
        | BOOK_IDENTIFIER {
                $$ = unsmob_book ($1);