From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 16 Oct 2005 14:30:19 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.7.13~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e60804663adb6688e62cbd891ddbbabdf63e0f90;p=lilypond.git

*** empty log message ***
---

diff --git a/input/wilhelmus.ly b/input/wilhelmus.ly
index 07d7cc1ee9..aee4e03844 100644
--- a/input/wilhelmus.ly
+++ b/input/wilhelmus.ly
@@ -48,7 +48,7 @@ setMargins = {
 
 pipeSymbol = {
   %% Set height of bar line to 2 staff-spaces
-  \once \override Staff.BarLine #'bar-size-procedure = #(lambda (x) 2)
+  \once \override Staff.BarLine #'bar-size = #2
   %% Move barline one staff-space up
   \once \override Staff.BarLine #'extra-offset = #'(0 . 1)
   \bar "|"