X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fchanging--flageolet-mark-size.ly;h=06cc98f352c3bb14cf30ad5d6752c1cc4627c6b7;hb=4d7ee80a3a8f4f44a67529745e51804316faa733;hp=196a2a9a19449df3b598b60188f50720e753a9f0;hpb=dc8e9c050a98c809e66b10d9ae1d3df9d3b0190f;p=lilypond.git

diff --git a/input/lsr/changing--flageolet-mark-size.ly b/input/lsr/changing--flageolet-mark-size.ly
index 196a2a9a19..06cc98f352 100644
--- a/input/lsr/changing--flageolet-mark-size.ly
+++ b/input/lsr/changing--flageolet-mark-size.ly
@@ -1,16 +1,16 @@
 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.11.61"
+\version "2.12.0"
 
 \header {
   lsrtags = "expressive-marks, unfretted-strings"
 
   texidoces = "
-Para hacer más pequeño el círculo de @code{\flageolet} (armónico)
+Para hacer más pequeño el círculo de @code{\\flageolet} (armónico)
 utilice la siguiente función de Scheme.
 
 "
-  doctitlees = "Cambiar el tamaño de la marca de \flageolet"
+  doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
 
   texidoc = "
 To make the @code{\\flageolet} circle smaller use the following Scheme
@@ -19,12 +19,14 @@ function.
 "
   doctitle = "Changing \\flageolet mark size"
 } % begin verbatim
-smallFlageolet = #(let ((m (make-music 'ArticulationEvent
-                          'articulation-type "flageolet")))
-       (set! (ly:music-property m 'tweaks)
-             (acons 'font-size -3
-                    (ly:music-property m 'tweaks)))
-       m)
+
+smallFlageolet =
+#(let ((m (make-music 'ArticulationEvent
+                      'articulation-type "flageolet")))
+   (ly:music-set-property! m 'tweaks
+     (acons 'font-size -3
+       (ly:music-property m 'tweaks)))
+  m)
 
 \layout { ragged-right = ##f }