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 (file)
index 0000000..158c64c
--- /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 6986f5a52a608721e358495414fae5c807d2d2f6..3cc956ee1c85a2e67c42170f7c6d6abf9d3e0163 100644 (file)
--- 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