--- /dev/null
+%%%% This file is part of LilyPond, the GNU music typesetter.
+%%%%
+%%%% Copyright (C) 2011 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
+%%%% the Free Software Foundation, either version 3 of the License, or
+%%%% (at your option) any later version.
+%%%%
+%%%% LilyPond is distributed in the hope that it will be useful,
+%%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%%%% GNU General Public License for more details.
+%%%%
+%%%% 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"
+
+#(define (add-text-replacements! 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!
+ '(;; Punctuation
+ ("…" . "…")
+ ("–" . "–")
+ ("—" . "—")
+ ("¡" . "¡")
+ ("¿" . "¿")
+ ("&solidus;" . "∕") ; this is not a slash,
+ ; contrary to what is said in Unicode.
+
+ ;; French, German and English quotes open/close
+ ("&flq;" . "‹")
+ ("&frq;" . "›")
+ ("&flqq;" . "«")
+ ("&frqq;" . "»")
+ ("&glq;" . "‚")
+ ("&grq;" . "‘")
+ ("&glqq;" . "„")
+ ("&grqq;" . "“")
+ ("&elq;" . "‘")
+ ("&erq;" . "’")
+ ("&elqq;" . "“")
+ ("&erqq;" . "”")
+
+ ;; Word dividers
+ (" " . " ")
+ (" " . " ")
+ (" " . " ")
+ (" " . " ")
+ ("&nnbsp;" . " ") ; narrow non-breaking space
+ ("‍" . "")
+ ("‌" . "")
+ ("·" . "·") ; interpunct
+
+ ;; General typography
+ ("•" . "•")
+ ("©right;" . "©")
+ ("®istered;" . "®")
+ ("&trademark;" . "™")
+ ("†" . "†")
+ ("‡" . "‡")
+ ("№" . "№")
+ ("ª" . "ª")
+ ("º" . "º")
+ ("¶" . "¶")
+ ("§" . "§")
+ ("°" . "°")
+ ("№" . "№")
+ ("‰" . "‰")
+ ("¦" . "¦")
+
+ ;; Diacritics
+ ("´" . "´")
+ ("´dbl;" . "˝")
+ ("`" . "`")
+ ("˘" . "˘")
+ ("ˇ" . "ˇ")
+ ("¸la;" . "¸")
+ ("&circumflex;" . "^")
+ ("&diaeresis;" . "¨")
+ ("¯on;" . "¯")
+
+ ;; Non-ASCII Letters (Excluding Accented Letters)
+ ("&aa;" . "å")
+ ("&AA;" . "Å")
+ ("&ae;" . "æ")
+ ("&AE;" . "Æ")
+ ("&dh;" . "ð")
+ ("&DH;" . "Ð")
+ ("&dj;" . "đ")
+ ("&DJ;" . "Đ")
+ ("&l;" . "ł")
+ ("&L;" . "Ł")
+ ("&ng;" . "ŋ")
+ ("&NG;" . "Ŋ")
+ ("&o;" . "ø")
+ ("&O;" . "Ø")
+ ("&oe;" . "œ")
+ ("&OE;" . "Œ")
+ ("&s;" . "ſ")
+ ("&ss;" . "ß")
+ ("&th;" . "þ")
+ ("&TH;" . "Þ")
+
+ ;; Mathematical symbols
+ ("+" . "+")
+ ("−" . "−")
+ ("×" . "×")
+ ("÷" . "÷")
+ ("¹" . "¹")
+ ("²" . "²")
+ ("³" . "³")
+ ("&sqrt;" . "√")
+ ("&increment;" . "∆")
+ ("&infty;" . "∞")
+ ("∑" . "∑")
+ ("±" . "±")
+ ("&bulletop;" . "∙")
+ ("&partial;" . "∂")
+ ("&neg;" . "¬")
+
+ ;; Currency symbols
+ ("¤cy;" . "¤")
+ ("$" . "$")
+ ("€" . "€")
+ ("£s;" . "£")
+ ("¥" . "¥")
+ ("¢" . "¢"))))