*** empty log message ***

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

diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm
index f046f810160031ea3b12f1542d100e2d7d2e1a70..fe867dff829cbd70842d326ac47b4cf57791b8aa 100644 (file)
--- a/scm/auto-beam.scm
+++ b/scm/auto-beam.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c)  2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2000--2005 Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;;; specify generic beam begin and end times
 
@@ -118,17 +118,8 @@ a fresh copy of the  list-head is made."
        (car rest)
        'Voice))))
 
-;; UGH -- fixme, docme
-(define-public (score-override-auto-beam-setting setting num den . rest)
-  (ly:export
-   (context-spec-music
-    (make-apply-context (lambda (c)
-                         (override-property-setting
-                          c 'autoBeamSettings
-                          setting (ly:make-moment num den))))
-    (if (and (pair? rest) (symbol? (car rest)))
-       (car rest)
-       'Score))))
+(define-public (score-override-auto-beam-setting setting num den)
+  (override-auto-beam-setting setting num den 'Score))
 
 (define-public (revert-auto-beam-setting setting . rest)
   (ly:export