]> code.delx.au - gnu-emacs/commitdiff
("Latin-8", "Latin-9"): Add input methods,
authorDave Love <fx@gnu.org>
Thu, 24 Aug 2000 13:19:19 +0000 (13:19 +0000)
committerDave Love <fx@gnu.org>
Thu, 24 Aug 2000 13:19:19 +0000 (13:19 +0000)
mod sample text.

lisp/language/european.el

index 31d2c1e15630d497a7e826cd7f8a8b1092c98496..5cbbafde6016f112b19578b81b8fa31cc4227674 100644 (file)
@@ -214,14 +214,13 @@ Ukranian."))                              ; says ISO 8859-1
             (nonascii-translation . latin-iso8859-14)
             (unibyte-syntax . "latin-8")
             (unibyte-display . iso-latin-8)
-            (input-method . "latin-1-prefix") ; fixme
-;;; Fixme: Welsh/Ga{e}lic greetings
-;;;         (sample-text
-;;;          . "")
+            (input-method . "latin-8-prefix")
+            ;; Fixme: Welsh/Ga{e}lic greetings
+            (sample-text . "\e,_"\e(B \e,_p\e(B \e,_^\e(B")
             (documentation . "\
 This language environment is a generic one for the Latin-8 (ISO-8859-14)
-character set which supports the Celtic languages which are not covered
-by other ISO-8859 character sets, specifically Welsh, Manx Gaelic and
+character set which supports the Celtic languages, including those not
+covered by other ISO-8859 character sets: Welsh, Manx Gaelic and
 Irish Gaelic (old orthography)."))
  '("European"))
 \f
@@ -246,9 +245,9 @@ Irish Gaelic (old orthography)."))
             (nonascii-translation . latin-iso8859-15)
             (unibyte-syntax . "latin-9")
             (unibyte-display . iso-latin-9)
-            (input-method . "latin-1-prefix") ; fixme?
+            (input-method . "latin-9-prefix")
             (sample-text
-             . "Ave Latinum IX, \e,b&(48<=>\e(B \e,b$$$\e(B")
+             . "AVE. \e,b&(48<=>\e(B \e,b$\e(B")
             (documentation . "\
 This language environment is a generic one for the Latin-9 (ISO-8859-15)
 character set which supports the same languages as Latin-1 with the
@@ -319,4 +318,6 @@ but default input method is set to \"german-postfix\"."))
           (documentation . t))
  '("European"))
 
+(provide 'european)
+
 ;;; european.el ends here