# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1034868457 0
# Node ID 729eccda47693c0f06f1bf4865a396c3a236d9dd
# Parent  452d68adc2c18bb86d3d72e6c5d994b230193bb9
("Slovenian"): Use slovenian input-method.
(encode-mac-roman): Use ucs-mule-to-mule-unicode.

diff -r 452d68adc2c1 -r 729eccda4769 lisp/language/european.el
--- a/lisp/language/european.el	Thu Oct 17 15:21:44 2002 +0000
+++ b/lisp/language/european.el	Thu Oct 17 15:27:37 2002 +0000
@@ -287,7 +287,7 @@
 	      (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 @@
   `(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")