(coding-system-unification-table-for-encode): Recurse properly.

(coding-system-unification-table-for-decode): Recurse properly.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 6820407135b75fcf9ebea62fc708ad7e4ccef5cb..7fba1d653a0b42d8f78972f431d34b7f1c2d21d7 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -254,7 +254,7 @@ coding-spec (see the function `make-coding-system')."
   (and coding-system
        (symbolp coding-system)
        (or (get coding-system 'unification-table-for-decode)
-          (coding-system-unification-table
+          (coding-system-unification-table-for-decode
            (get coding-system 'coding-system)))))
 
 ;;;###autoload
@@ -263,7 +263,7 @@ coding-spec (see the function `make-coding-system')."
   (and coding-system
        (symbolp coding-system)
        (or (get coding-system 'unification-table-for-encode)
-          (coding-system-unification-table
+          (coding-system-unification-table-for-encode
            (get coding-system 'coding-system)))))
 
 (defun coding-system-lessp (x y)