("Slovenian"): Use slovenian input-method.

(encode-mac-roman): Use ucs-mule-to-mule-unicode.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 5928c299c9b..338b73fe960 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -287,7 +287,7 @@ but it selects the French tutorial."))
               (coding-system . (iso-8859-2))
               (coding-priority . (iso-8859-2))
               (nonascii-translation . latin-iso8859-2)
-              (input-method . "latin-2-postfix")
+              (input-method . "slovenian")
               (unibyte-syntax . "latin-2")
               (unibyte-display . iso-8859-2)
               (tutorial . "TUTORIAL.sl")
@@ -576,6 +576,7 @@ but it selects the Dutch tutorial and input method."))
   `(1
     ((loop
       (read-multibyte-character r0 r1)
+      (translate-character ucs-mule-to-mule-unicode r0 r1)
       (translate-character mac-roman-encoder r0 r1)
       (write-repeat r1))))
   "CCL program to encode Mac Roman")