From: Kenichi Handa <handa@m17n.org>
Date: Fri, 22 Aug 1997 01:22:49 +0000 (+0000)
Subject: (coding-system-unification-table):
X-Git-Tag: emacs-20.1~493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=347617467920f4b02e2883daa879fd09860c5d68;p=emacs.git

(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 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)))))