From: hanwen <hanwen>
Date: Sun, 13 Oct 2002 19:42:44 +0000 (+0000)
Subject: * lily/parser.yy (verbose_event): remove \spanrequest,
X-Git-Tag: release/1.7.25~715
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=20e19de383f49c9370025e962d2b27a9a39af21e;p=lilypond.git

* lily/parser.yy (verbose_event): remove \spanrequest,
\commandspanrequest, \script.

* lily/parser.yy: remove arpeggio keyword; use identifier. Idem
for \penalty, \glissando.
---

diff --git a/lily/parser.yy b/lily/parser.yy
index 520bb9000f..4c1e42c80d 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1807,30 +1807,28 @@ simple_element:
 		Input i = THIS->pop_spot (); 
 		m->set_spot (i);
 		for (SCM s = m->get_mus_property ("elements"); gh_pair_p (s); s = ly_cdr (s))
-			{
-				unsmob_music (ly_car (s))->set_mus_property ("duration", $2);
-			}
+		{
+			unsmob_music (ly_car (s))->set_mus_property ("duration", $2);
+		}
 		$$ = m;
 	}	
  	| RESTNAME optional_notemode_duration		{
 
 		Input i = THIS->pop_spot ();
  		SCM e = SCM_UNDEFINED;
+		Music * ev = 0;
  		if (ly_scm2string ($1) =="s") {
 			/* Space */
-			Music * skip = MY_MAKE_MUSIC("SkipEvent");
-			skip->set_mus_property ("duration" ,$2);
-			skip->set_spot (i);
-			e = skip->self_scm ();
+			ev = MY_MAKE_MUSIC("SkipEvent");
 		  }
-		  else {
- 			Music * rest_req = MY_MAKE_MUSIC("RestEvent");
-		      	rest_req->set_mus_property ("duration", $2);
-		      	rest_req->set_spot (i);
-			e = rest_req->self_scm ();
+		else {
+			ev = MY_MAKE_MUSIC("RestEvent");
+		
 		    }
+		skip->set_mus_property ("duration" ,$2);
+		skip->set_spot (i);
  		Music * velt = MY_MAKE_MUSIC("EventChord");
-		velt-> set_mus_property ("elements", scm_list_n (e,SCM_UNDEFINED));
+		velt->set_mus_property ("elements", scm_list_n (ev->self_scm (),SCM_UNDEFINED));
 		velt->set_spot (i);
 
  		$$ = velt;