X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=ly%2Fbagpipe.ly;h=f1566c7d4adae4be17542866518132485eda485a;hb=cc5223ac26a5713c5901c02edf2868c26be10542;hp=70bab63a2372af3d77e6e386de90ae5323d96816;hpb=3b8f430efd506ccd6ae8235be0f08468c0da937d;p=lilypond.git

diff --git a/ly/bagpipe.ly b/ly/bagpipe.ly
index 70bab63a23..f1566c7d4a 100644
--- a/ly/bagpipe.ly
+++ b/ly/bagpipe.ly
@@ -9,7 +9,7 @@
   $Id: bagpipe.ly,v 1.12 2006/03/16 14:39:46 hanwen Exp $
 %}
 
-\version "2.14.0"
+\version "2.15.20"
 
 % Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
 % Flat notes used mainly in some modern music.
@@ -41,14 +41,14 @@ hideKeySignature = {
   \override Staff.KeySignature  #'stencil = ##f
   \set Staff.extraNatural = ##f
   \key d \major
-  #(set-accidental-style 'forget)
+  \accidentalStyle "forget"
 }
 showKeySignature = {
   % Show the key signature e.g. for BMW compatibility.
   \override Staff.KeySignature  #'stencil = #ly:key-signature-interface::print
   \set Staff.extraNatural = ##f
   \key d \major
-  #(set-accidental-style 'forget)
+  \accidentalStyle "forget"
 }
 
 % Layout tweaks.
@@ -89,7 +89,7 @@ marchTime = {
 
 % Add appropriate tweaks needed for piping grace notes to look great.
 stemspace = #(define-music-function (parser location extent) (pair?) #{
-  \once \override Staff.Stem #'X-extent = #$extent
+  \once \override Staff.Stem #'X-extent = #extent
 #})
 pgrace = #(define-music-function (parser location notes) (ly:music?) #{
   \override Score.GraceSpacing #'spacing-increment = #0