Imported Upstream version 2.19.45

[lilypond.git] / Documentation / snippets / adding-links-to-objects.ly

diff --git a/Documentation/snippets/adding-links-to-objects.ly b/Documentation/snippets/adding-links-to-objects.ly
index a2d214337d6ae01463cd1fa9ce1f9e4b1abea988..16db39cfc14c468710d8b59500be056dd48733f2 100644 (file)
--- a/Documentation/snippets/adding-links-to-objects.ly
+++ b/Documentation/snippets/adding-links-to-objects.ly
@@ -1,10 +1,10 @@
 %% DO NOT EDIT this file manually; it is automatically
-%% generated from LSR http://lsr.dsi.unimi.it
+%% generated from LSR http://lsr.di.unimi.it
 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
 %% and then run scripts/auxiliar/makelsr.py
 %%
 %% This file is in the public domain.
-\version "2.17.6"
+\version "2.18.0"
 
 \header {
   lsrtags = "editorial-annotations, scheme-language, tweaks-and-overrides"
@@ -22,10 +22,6 @@ The linked objects are colored with a separate command.
   doctitle = "Adding links to objects"
 } % begin verbatim
 
-% Code by Thomas Morley
-% Contributed by harm6
-% Tested with 2.14.2 up to 2.17.9
-
 #(define (add-link url-strg)
   (lambda (grob)
     (let* ((stil (ly:grob-property grob 'stencil)))
@@ -35,7 +31,8 @@ The linked objects are colored with a separate command.
              (x-ext (ly:stencil-extent stil X))
              (y-ext (ly:stencil-extent stil Y))
              (url-expr (list 'url-link url-strg `(quote ,x-ext) `(quote ,y-ext)))
-             (new-stil (ly:stencil-add (ly:make-stencil url-expr x-ext y-ext) stil)))
+             (new-stil (ly:stencil-add
+                 (ly:make-stencil url-expr x-ext y-ext) stil)))
           (ly:grob-set-property! grob 'stencil new-stil)))
         #f))))