From: fred <fred>
Date: Wed, 27 Mar 2002 02:05:46 +0000 (+0000)
Subject: lilypond-1.5.34
X-Git-Tag: release/1.5.59~319
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5d11b09c8706bd36daf9b5472a09f2a79381c913;p=lilypond.git

lilypond-1.5.34
---

diff --git a/lily/translator-def.cc b/lily/translator-def.cc
index 2533c486cc..79c4087bdb 100644
--- a/lily/translator-def.cc
+++ b/lily/translator-def.cc
@@ -138,16 +138,13 @@ Translator_def::add_pop_property (SCM props, SCM syms)
 }
 
 /*
-  Do it. SYMS maybe a symbol or a list of symbols. VAL is
-  SCM_UNDEFINED in case of a pop
+  Do it. SYM is single symbol. VAL is SCM_UNDEFINED in case of a pop
 */
 void
-Translator_def::apply_pushpop_property (Translator_group* me,SCM syms, SCM eprop, SCM val)
+Translator_def::apply_pushpop_property (Translator_group* me,SCM sym, SCM eprop, SCM val)
 {
-  if (gh_symbol_p (syms))
-    dynamic_cast<Translator_group*> (me)->execute_single_pushpop_property (syms, eprop, val);
-  else for (SCM s = syms; gh_pair_p (s); s = ly_cdr (s))
-    dynamic_cast<Translator_group*> (me)->execute_single_pushpop_property (ly_car (s), eprop, val);
+  dynamic_cast<Translator_group*> (me)
+    ->execute_single_pushpop_property (sym, eprop, val);
 }
 
 
diff --git a/scm/drums.scm b/scm/drums.scm
index 45d8e6be19..e3862259f1 100644
--- a/scm/drums.scm
+++ b/scm/drums.scm
@@ -33,7 +33,7 @@
    (let* ( (m (ly-make-music "Music"))
          )
      (ly-set-mus-property m 'iterator-ctor Push_property_iterator::constructor)
-     (ly-set-mus-property m 'symbols 'NoteHead)
+     (ly-set-mus-property m 'symbol 'NoteHead)
      (ly-set-mus-property m 'grob-property 'style)
      (ly-set-mus-property m 'grob-value t)
      m
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 9c254e5a8d..10e91ee263 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -74,14 +74,14 @@ Fingering_engraver."
 ;;;;;;;;;;;;;;;;
 
 
-(define (make-grob-property-set grobs gprop val)
+(define (make-grob-property-set grob gprop val)
   "Make a M-exp that sets GPROP to VAL in GROBS. Does a pop first, i.e.
 this is not an override 
 "
   
    (let* ((m (ly-make-music  "Music")))
      (ly-set-mus-property m 'iterator-ctor Push_property_iterator::constructor)
-     (ly-set-mus-property m 'symbols grobs)
+     (ly-set-mus-property m 'symbol grob)
      (ly-set-mus-property m 'grob-property gprop)
      (ly-set-mus-property m 'grob-value val)
      (ly-set-mus-property m 'pop-first #t)
@@ -90,10 +90,11 @@ this is not an override
    
    ))
    
-(define (make-grob-property-revert grobs gprop)
+(define (make-grob-property-revert grob gprop)
+  "Revert the grob property GPROP for GROB."
    (let* ((m (ly-make-music  "Music")))
      (ly-set-mus-property m 'iterator-ctor Pop_property_iterator::constructor)
-     (ly-set-mus-property m 'symbols grobs)
+     (ly-set-mus-property m 'symbol grob)
      (ly-set-mus-property m 'grob-property gprop)
 		
      m
@@ -102,18 +103,22 @@ this is not an override
    
 (define (make-voice-props-set n)
   (make-sequential-music
-   (list
-      (make-grob-property-set '(Tie Slur Stem Dots) 'direction
-			 (if (odd? n) -1 1))
-      (make-grob-property-set '(NoteColumn) 'horizontal-shift (quotient n 2))
+   (append
+      (map (lambda (x) (make-grob-property-set x 'direction
+					       (if (odd? n) -1 1)))
+	   '(Tie Slur Stem Dots))
+      (list (make-grob-property-set 'NoteColumn 'horizontal-shift (quotient n 2)))
    )
   ))
 
 (define (make-voice-props-revert)
   (make-sequential-music
    (list
-      (make-grob-property-revert '(Tie Slur Stem Dots) 'direction)
-      (make-grob-property-revert '(NoteColumn) 'horizontal-shift)
+      (make-grob-property-revert 'Tie 'direction)
+      (make-grob-property-revert 'Dots 'direction)
+      (make-grob-property-revert 'Stem 'direction)
+      (make-grob-property-revert 'Slur 'direction)	    
+      (make-grob-property-revert 'NoteColumn 'horizontal-shift)
    ))
   )