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

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

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 5928c299c9b1f960bcc18ce22dc6a9aa21af364a..338b73fe960f4f2432366b8ec44ef7791638fb5c 100644 (file)
--- 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")