(coding-system-unification-table):

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

1 files changed, 12 insertions, 3 deletions

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index e9a3d67aa68..be55a22bf71 100644
--- 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)))))