X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ftext-replacements.ly;h=50f06b484b5a2b9ce7ac33f424db5213c3afed12;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=74d414aca86c707afeb6f3b761090290a977acdd;hpb=e7aa6c445f463844dbaa52d38ea4aac2882b5601;p=lilypond.git diff --git a/ly/text-replacements.ly b/ly/text-replacements.ly index 74d414aca8..50f06b484b 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--2014 Bertrand Bordage +%%%% Copyright (C) 2011--2015 Bertrand Bordage %%%% %%%% LilyPond is free software: you can redistribute it and/or modify %%%% it under the terms of the GNU General Public License as published by @@ -19,9 +19,9 @@ #(define (add-text-replacements! alist) (set! text-font-defaults - (assoc-set! text-font-defaults 'replacement-alist - (cdaar - (internal-add-text-replacements (list text-font-defaults) alist))))) + (assoc-set! text-font-defaults 'replacement-alist + (cdaar + (internal-add-text-replacements (list text-font-defaults) alist))))) #(define (include-special-characters) (add-text-replacements! @@ -91,6 +91,8 @@ ("&AA;" . "Å") ("&ae;" . "æ") ("&AE;" . "Æ") + ("ä" . "ä") + ("Ä" . "Ä") ("&dh;" . "ð") ("&DH;" . "Ð") ("&dj;" . "đ") @@ -103,10 +105,14 @@ ("&O;" . "Ø") ("&oe;" . "œ") ("&OE;" . "Œ") + ("ö" . "ö") + ("Ö" . "Ö") ("&s;" . "Å¿") ("&ss;" . "ß") ("&th;" . "þ") ("&TH;" . "Þ") + ("ü" . "ü") + ("Ü" . "Ü") ;; Mathematical symbols ("+" . "+")