# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1008438185 0
# Node ID 7b6dcc19e8956c7521307875666d585a40fd80cb
# Parent  6c1b3df2bbd2a7cf77ff1935de65727e1fbe3fa8
("Welsh", "Latin-7", "Lithuanian")
("Latvian"): New languages.

diff -r 6c1b3df2bbd2 -r 7b6dcc19e895 lisp/language/european.el
--- a/lisp/language/european.el	Sat Dec 15 17:42:33 2001 +0000
+++ b/lisp/language/european.el	Sat Dec 15 17:43:05 2001 +0000
@@ -360,6 +360,36 @@
 	   (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"))
 
 ;; Definitions for the Mac Roman character sets and coding system.
 ;; The Mac Roman encoding uses all 128 code points in the range 128 to