("Welsh", "Latin-7", "Lithuanian")

("Latvian"): New languages.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 800e5f79dfd5d3199160980bc4d6abc572a3957b..64664a544e5ab5242cc8bd0b218743c17d827b3f 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -360,6 +360,36 @@ but select's the Dutch tutorial."))
           (documentation . t))
  '("European"))
 
+(set-language-info-alist
+ "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based
+          (coding-priority utf-8 latin-8)
+          (input-method . "welsh")
+          (documentation . "Support for Welsh, using Unicode."))
+ '("European"))
+
+(set-language-info-alist
+ "Latin-7" `((coding-system latin-7)
+            (coding-priority latin-7)
+            ;; Fixme: input-method
+            (features code-pages)
+            (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))
+ '("European"))
+
+(set-language-info-alist
+ "Lithuanian" `((coding-system latin-7)
+               (coding-priority latin-7)
+               (input-method . "lithuanian-keyboard")
+               (features code-pages)
+               (documentation . "Support for Lithuanian."))
+ '("European"))
+
+(set-language-info-alist
+ "Latvian" `((coding-system latin-7)
+            (coding-priority latin-7)
+            (input-method . "latvian-keyboard")
+            (features code-pages)
+            (documentation . "Support for Latvian."))
+ '("European"))
 \f
 ;; Definitions for the Mac Roman character sets and coding system.
 ;; The Mac Roman encoding uses all 128 code points in the range 128 to