(setup-slovenian-environment): New function.

("Slovenian"): New language environment.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index d9428fbca828856ad3cb7c055827767dbd08644e..3be974c79f41e546e554438b8299c912c6e878f3 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -232,4 +232,24 @@ This language environment is almost the same as Latin-1,
 but default input method is set to \"german-postfix\"."))
  '("European"))
 
+(defun setup-slovenian-environment ()
+  "Setup multilingual environment (MULE) for Slovenian."
+  (interactive)
+  (set-language-environment "Slovenian"))
+
+(set-language-info-alist
+ "Slovenian" '((charset . (ascii latin-iso8859-2))
+             (coding-system . (iso-8859-2))
+             (coding-priority . (iso-8859-2))
+             (nonascii-translation . latin-iso8859-2)
+             (input-method . "latin-2-postfix")
+             (unibyte-syntax . "latin-2")
+             (unibyte-display . iso-8859-2)
+             (tutorial . "TUTORIAL.sl")
+             (sample-text . "\e,B.\e(Belimo vam uspe\e,B9\e(Ben dan!")
+             (documentation . t))
+ '("European"))
+
+(provide 'slovenian)
+
 ;;; european.el ends here