X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Faccidental-unbroken-tie-spacing.ly;h=feae702a9ece933d4605d3fc64cc54a51a42fcf5;hb=909988faa0d04a3176a71120c57573d9f84bf8f3;hp=a9857e4026a533d088877cfca0f667f265d7998c;hpb=d664f5a7153ec2b1a1c4c9fba2d2174bf3140695;p=lilypond.git

diff --git a/input/regression/accidental-unbroken-tie-spacing.ly b/input/regression/accidental-unbroken-tie-spacing.ly
index a9857e4026..feae702a9e 100644
--- a/input/regression/accidental-unbroken-tie-spacing.ly
+++ b/input/regression/accidental-unbroken-tie-spacing.ly
@@ -1,18 +1,22 @@
 
 \header {
-texidoc = "Tied accidentaled notes (which cause reminder accidentals) do not 
-wreak havoc in the spacing when unbroken."
+texidoc = "Space is allowed for the actual size of accidentals on tied notes."
 }
 
-\version "2.12.0"
-\layout {
-  ragged-right = ##t
-}
-
-\relative c' {
+\version "2.19.21"
+\paper {ragged-right = ##t }
+\relative {
   \clef treble
   \time 3/4
-  c8 b2  <g b des f>8 ~ |
-  <g b des f>8
+  c'8 b2  <g b des f>8 ~ |
+  <g b des f>8 r
+  % Large accidental
+  \override Staff.Accidental.stencil =
+  #(lambda (g)
+     (let ((alt (ly:grob-property g 'alteration)))
+       (grob-interpret-markup g
+         (make-circle-markup (number->string alt)))))
+  bes4 ~ bes ~ | bes ~ bes bes ~ | \break
+  bes ~ bes bes
 }