(coding-system-unification-table):

Deleted.
(coding-system-unification-table-for-decode): New function.
(coding-system-unification-table-for-encode): New function.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index e9a3d67aa68675ba425c6cd0f71a45d96ac92ee9..be55a22bf7130f04a036823e4c4ca28e18cc4bfe 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -238,11 +238,20 @@ coding-spec (see the function `make-coding-system')."
            (get coding-system 'coding-system)))))
 
 ;;;###autoload
-(defun coding-system-unification-table (coding-system)
-  "Return unification-table property of CODING-SYSTEM."
+(defun coding-system-unification-table-for-decode (coding-system)
+  "Return unification-table-for-decode property of CODING-SYSTEM."
   (and coding-system
        (symbolp coding-system)
-       (or (get coding-system 'unification-table)
+       (or (get coding-system 'unification-table-for-decode)
+          (coding-system-unification-table
+           (get coding-system 'coding-system)))))
+
+;;;###autoload
+(defun coding-system-unification-table-for-encode (coding-system)
+  "Return unification-table-for-encode property of CODING-SYSTEM."
+  (and coding-system
+       (symbolp coding-system)
+       (or (get coding-system 'unification-table-for-encode)
           (coding-system-unification-table
            (get coding-system 'coding-system)))))