Avoid deprecated access declarations

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index c5bf597b6e428dd8b0945cece03e2c944a25b73b..37a68917e724a1b121ea44c8c205cff4ebc3609e 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -16,11 +16,15 @@ defaultNoteHeads =
 
 accidentalStyle =
 #(define-music-function
-   (parser location style) (string-or-symbol?)
-   (_i "Set @var{style} as the accidental style to use.")
-   (set-accidental-style (if (string? style)
-                             (string->symbol style)
-                             style)))
+   (parser location context style) ((symbol?) string?)
+   (_i "Set accidental style to @var{style}, a string.  If an optional
+@var{context} symbol is given, e.g. @code{#'Staff} or @code{#'Voice},
+the settings are applied to that context.  Otherwise, the context
+defaults to @samp{Staff}, except for piano styles, which use
+@samp{GrandStaff} as a context." )
+   (if context
+       (set-accidental-style (string->symbol style) context)
+       (set-accidental-style (string->symbol style))))
 
 %% arpeggios
 
@@ -442,7 +446,9 @@ tabFullNotation = {
   \revert TabVoice.Flag #'style
   \revert TabVoice.Stem #'details
   \revert TabVoice.Stem #'transparent
+  \revert TabVoice.Flag #'transparent
   \override TabVoice.Stem #'stencil = #tabvoice::draw-double-stem-for-half-notes
+  \override TabVoice.Stem #'X-extent = #tabvoice::make-double-stem-width-for-half-notes
   \set autoBeaming = ##t
   \revert NoteColumn #'ignore-collision
   % beams, dots