Use define-session-public w/ accidental-styles alist

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index fa3d98b53f9334f155838c236f79f12802935895..9c36ceaf4d4c51d3097797256c9e195c157ad330 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -1699,7 +1699,7 @@ on the same staff line."
           (cons #f (not (or (equal? acc key-acc)
                             (and (equal? entrybn barnum) (equal? entrymp measurepos)))))))))
 
-(define-public accidental-styles
+(define-session-public accidental-styles
   ;; An alist containing specification for all accidental styles.
   ;; Each accidental style needs three entries for the context properties
   ;; extraNatural, autoAccidentals and autoCautionaries.