X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ftext-replacements.ly;h=74d414aca86c707afeb6f3b761090290a977acdd;hb=0ea80a5e850c6114d1ba7dc4cfd81d5a45d9604a;hp=94d3dacc2e34bb626d9ab8f60eff69ded6d16db6;hpb=688f5f1711d8ca07338385a2ae0191b1a8aae315;p=lilypond.git

diff --git a/ly/text-replacements.ly b/ly/text-replacements.ly
index 94d3dacc2e..74d414aca8 100644
--- a/ly/text-replacements.ly
+++ b/ly/text-replacements.ly
@@ -1,6 +1,6 @@
 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
-%%%% Copyright (C) 2011 Bertrand Bordage <bordage.bertrand@gmail.com>
+%%%% Copyright (C) 2011--2014 Bertrand Bordage <bordage.bertrand@gmail.com>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
@@ -15,12 +15,13 @@
 %%%% You should have received a copy of the GNU General Public License
 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
-\version "2.15.13"
+\version "2.16.0"
 
 #(define (add-text-replacements! alist)
-   (assoc-set! text-font-defaults 'replacement-alist
-     (cdaar
-       (internal-add-text-replacements (list text-font-defaults) alist))))
+   (set! text-font-defaults
+	 (assoc-set! text-font-defaults 'replacement-alist
+		     (cdaar
+		      (internal-add-text-replacements (list text-font-defaults) alist)))))
 
 #(define (include-special-characters)
    (add-text-replacements!