From: Marc Hohl <marc@hohlart.de>
Date: Fri, 19 Oct 2012 08:36:31 +0000 (+0200)
Subject: New bar line interface: adds volta bracket regtest; minor changes
X-Git-Tag: release/2.17.6-1~43
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e0a802ee4260edd5604349ddde52cb0017912fb6;p=lilypond.git

New bar line interface: adds volta bracket regtest; minor changes

The alists used in scm/bar-line.scm don't need to be defined
by define-session-public; define-session is sufficient
---

diff --git a/input/regression/volta-bracket-add-volta-hook.ly b/input/regression/volta-bracket-add-volta-hook.ly
new file mode 100644
index 0000000000..158c64c792
--- /dev/null
+++ b/input/regression/volta-bracket-add-volta-hook.ly
@@ -0,0 +1,14 @@
+\version "2.17.5"
+
+\header {
+  texidoc = "Volta bracket end hooks can be added for other bar line types.
+"
+}
+
+#(allow-volta-hook "|")
+
+\new Staff {
+  \repeat volta 2 { c'1 }
+  \alternative { { c'1 } { d'1 } }
+  e'1
+}
\ No newline at end of file
diff --git a/scm/bar-line.scm b/scm/bar-line.scm
index 6986f5a52a..3cc956ee1c 100644
--- a/scm/bar-line.scm
+++ b/scm/bar-line.scm
@@ -222,9 +222,9 @@ and as a span bar (@var{span-glyph}) respectively."
   (set! span-bar-glyph-alist
     (acons bar-glyph span-glyph span-bar-glyph-alist)))
 
-(define-session-public bar-glyph-alist '())
+(define-session bar-glyph-alist '())
 
-(define-session-public span-bar-glyph-alist '())
+(define-session span-bar-glyph-alist '())
 
 (define-public (add-bar-glyph-print-procedure glyph proc)
   "Specify the single glyph @var{glyph} that calls print procedure @var{proc}.
@@ -239,7 +239,7 @@ is not used within the routine."
       (set! bar-glyph-print-procedures
         (acons glyph proc bar-glyph-print-procedures))))
 
-(define-session-public bar-glyph-print-procedures `())
+(define-session bar-glyph-print-procedures `())
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; drawing functions for various bar line types
@@ -907,7 +907,7 @@ no elements."
       (ly:warning (_ ("Volta hook bar line must be a string; ignoring '~a'.")
                   bar-glyph))))
 
-(define-session-public volta-bracket-allow-volta-hook-list '())
+(define-session volta-bracket-allow-volta-hook-list '())
 
 (define-public (volta-bracket::calc-hook-visibility bar-glyph)
   "Determine the visibility of the volta bracket hook. It is called in