From: fred <fred>
Date: Sun, 24 Mar 2002 19:40:05 +0000 (+0000)
Subject: lilypond-0.0.56
X-Git-Tag: release/1.5.59~4911
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4a6f71ec894dbc668418e57040c9ea354d264efa;p=lilypond.git

lilypond-0.0.56
---

diff --git a/lily/my-lily-parser.cc b/lily/my-lily-parser.cc
index 73761360f9..21645d93bc 100644
--- a/lily/my-lily-parser.cc
+++ b/lily/my-lily-parser.cc
@@ -140,6 +140,11 @@ My_lily_parser::get_rest_element(String,  Duration * duration_p )
     rest_req_p->set_spot( here_input());
 
     velt_p->add(rest_req_p);
+    
+    Stem_req * stem_p = new Stem_req;
+    stem_p->duration_ = *duration_p;
+    stem_p->set_spot ( here_input ());
+    velt_p->add(stem_p);
     delete duration_p;
     return velt_p;
 }
@@ -149,6 +154,8 @@ My_lily_parser::get_note_element(Note_req *rq, Duration * duration_p )
 {
     Voice_element*v = new Voice_element;
     v->set_spot( here_input());
+
+    v->add(rq);
     
     if (duration_p->type_i_ >= 2) {
 	Stem_req * stem_req_p = new Stem_req();
@@ -160,9 +167,6 @@ My_lily_parser::get_note_element(Note_req *rq, Duration * duration_p )
 
     rq->set_duration(*duration_p);
     rq->set_spot( here_input());
-
-
-    v->add(rq);
     delete duration_p ;
     return v;
 }
diff --git a/lily/parser.y b/lily/parser.y
index ec5646b8d4..f0e6481f34 100644
--- a/lily/parser.y
+++ b/lily/parser.y
@@ -985,6 +985,7 @@ voice_elt:
 	steno_note_req notemode_duration 		{
 		if (!THIS->lexer_p_->note_state_b())
 			THIS->parser_error("have to be in Note mode for notes");
+		$1->set_duration (*$2);
 		$$ = THIS->get_note_element($1, $2);
 	}
 	| RESTNAME notemode_duration		{