Docs: update LSR, mostly fixing German texidocs

[lilypond.git] / input / lsr / changing--flageolet-mark-size.ly

diff --git a/input/lsr/changing--flageolet-mark-size.ly b/input/lsr/changing--flageolet-mark-size.ly
index 2009bb2528e7be93efc9de296e6934e1e04456b7..a3c1254baccd131c9447d73f961471f2b0df58dc 100644 (file)
--- a/input/lsr/changing--flageolet-mark-size.ly
+++ b/input/lsr/changing--flageolet-mark-size.ly
@@ -12,6 +12,16 @@ utilice la siguiente función de Scheme.
 "
   doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
 
+%% Translation of GIT committish: 0099693675b95c7ec6664d7277f22411a14e9c1b
+
+  texidocfr = "
+Il est possible de rapetisser le cercle d'un @code{\\flageolet} grâce 
+à une fonction Scheme. 
+
+"
+  doctitlefr = "Modifier la taille d'un \\flageolet"
+
+
   texidoc = "
 To make the @code{\\flageolet} circle smaller use the following Scheme
 function. 
@@ -20,12 +30,13 @@ 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 }