("Latin-8", "Latin-9"): Add input methods,

mod sample text.

1 files changed, 9 insertions, 8 deletions

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 31d2c1e1563..5cbbafde601 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -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 . ",_"(B ,_p(B ,_^(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"))
 
@@ -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, ,b&(48<=>(B ,b$$$(B")
+              . "AVE. ,b&(48<=>(B ,b$(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