(set-accidental-style): use GrandStaff

iso. PianoStaff.

diff --git a/ChangeLog b/ChangeLog
index ca596ca6b63d3d7012ddac5e032ece59ad122acb..ed5d3d0042d5d6b4efec770cf424df665a061bb5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-03  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+       * scm/music-functions.scm (set-accidental-style): use GrandStaff
+       iso. PianoStaff.
+
 2004-05-02  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
        * Documentation/user/lilypond.tely (Top): update version number.

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 12965891520a7704b1d279a75c72bb97bd487538..d80760d66907019c8d9815a12c3ecc27d69aa1a3 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -637,11 +637,11 @@ without context specification. Called  from parser."
 (define-public (set-accidental-style style . rest)
   "Set accidental style to STYLE. Optionally takes a context argument,
 e.g. 'Staff or 'Voice. The context defaults to Voice, except for piano styles, which
-use PianoStaff as a context. "
+use GrandStaff as a context. "
   (let ((context (if (pair? rest)
                     (car rest) 'Staff))
        (pcontext (if (pair? rest)
-                     (car rest) 'PianoStaff)))
+                     (car rest) 'GrandStaff)))
     (ly:export
      (cond
       ;; accidentals as they were common in the 18th century.
@@ -685,14 +685,14 @@ use PianoStaff as a context. "
       ((equal? style 'piano)
        (set-accidentals-properties #f
                                   '( Staff (same-octave . 0) (any-octave . 0) (same-octave . 1)
-                                           PianoStaff (any-octave . 0) (same-octave . 1))
+                                           GrandStaff (any-octave . 0) (same-octave . 1))
                                   '()
                                   pcontext))
       ((equal? style 'piano-cautionary)
        (set-accidentals-properties #f
                                   '(Staff (same-octave . 0))
                                   '(Staff (any-octave . 0) (same-octave . 1)
-                                          PianoStaff (any-octave . 0) (same-octave . 1))
+                                          GrandStaff (any-octave . 0) (same-octave . 1))
                                   pcontext))
       ;; do not set localKeySignature when a note alterated differently from
       ;; localKeySignature is found.