Support keyboard input and display of U+1E9E

* lisp/international/latin1-disp.el (latin1-display):
* lisp/international/iso-transl.el (iso-transl-char-map)
(iso-transl-language-alist): Add U+1E9E capital sharp S.

diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index 90fdc06b1e4b350eaf51b820ddbfd2397d23c398..5e9fd69ea0237f0cd35934b8e247e12efb9865cd 100644 (file)
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -76,6 +76,7 @@
     ("\"E"  . [?Ë])
     ("\"I"  . [?Ï])
     ("\"O"  . [?Ö])
+    ("\"S"  . [?ẞ])
     ("\"U"  . [?Ü])
     ("\"a"  . [?ä])
     ("\"e"  . [?ë])
@@ -324,6 +325,7 @@ sequence VECTOR.  (VECTOR is normally one character long.)")
     ("German"
      ("A"  . [?Ä])
      ("O"  . [?Ö])
+     ("S"  . [?ẞ])
      ("U"  . [?Ü])
      ("a"  . [?ä])
      ("o"  . [?ö])

diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 7054077fb02fbaca282f357b9eaf1e042b8959ae..af7519279329104ffda6b5f962baced272db6400 100644 (file)
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -124,6 +124,7 @@ display for all of `latin1-display-sets'.  See also
             (?\™ "TM")       ;; TRADE MARK SIGN
             (?\› ">") ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
             (?•  "·")
+             (?ẞ "SS") ;; LATIN CAPITAL LETTER SHARP S
             )))
          (setq latin1-display t))
     (mapc #'latin1-display-reset latin1-display-sets)