Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

[lilypond.git] / ly / text-replacements.ly

diff --git a/ly/text-replacements.ly b/ly/text-replacements.ly
index 36a5f109eee28d1dad633c874ef9809e2fd26498..50f06b484b5a2b9ce7ac33f424db5213c3afed12 100644 (file)
--- a/ly/text-replacements.ly
+++ b/ly/text-replacements.ly
@@ -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
        ("+" . "+")