* lily/font-select.cc (properties_to_font_size_family): Fix

[lilypond.git] / scm / auto-beam.scm

diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm
index d40e52860cc5d66943eefa03b960927553fdbac9..a5df65464a7e10dced0819ec90e29c1e4981fc6e 100644 (file)
--- a/scm/auto-beam.scm
+++ b/scm/auto-beam.scm
@@ -1,10 +1,8 @@
-;;;
-;;; auto-beam.scm -- Auto-beam-engraver settings
-;;;
-;;; source file of the GNU LilyPond music typesetter
-;;; 
-;;; (c)  2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
-;;;
+;;;; auto-beam.scm -- Auto-beam-engraver settings
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;;; specify generic beam begin and end times
 
@@ -85,12 +83,12 @@
 
 
 (define (override-property-setting context context-prop setting value)
-  "Like the C++ code that executes \override, but without type
+  "Like the C++ code that executes \\override, but without type
 checking. "
 
-  (ly:set-context-property! context context-prop
+  (ly:context-set-property! context context-prop
                           (cons (cons setting value)
-                                (ly:get-context-property context context-prop)
+                                (ly:context-property context context-prop)
                                 )
                           )
   )
@@ -110,13 +108,13 @@ a fresh copy of the  list-head is made."
 
   
   
-    (ly:set-context-property!
+    (ly:context-set-property!
      context context-prop
-     (revert-assoc (ly:get-context-property context context-prop)
+     (revert-assoc (ly:context-property context context-prop)
                   setting))
   )
 
-(define-public (override-auto-beam-setting setting num den)
+(define-public (override-auto-beam-setting setting num den . rest)
   (ly:export
    (context-spec-music
     (make-apply-context (lambda (c)
@@ -124,18 +122,19 @@ a fresh copy of the  list-head is made."
                           c 'autoBeamSettings
                           setting (ly:make-moment num den))
                          ))
-    "Voice")
-  ))
+    (if (and (pair? rest) (symbol? (car rest)))
+       (car rest)
+       'Voice)
+  )))
 
-(define-public (revert-auto-beam-setting setting)
+(define-public (revert-auto-beam-setting setting . rest)
   (ly:export
    (context-spec-music
     (make-apply-context (lambda (c)
                          (revert-property-setting
                           c 'autoBeamSettings
                           setting)))
-    
-    "Voice")))
-  
-
+    (if (and (pair? rest) (symbol? (car rest)))
+       (car rest)
+       'Voice))))