From 347617467920f4b02e2883daa879fd09860c5d68 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 22 Aug 1997 01:22:49 +0000 Subject: [PATCH] (coding-system-unification-table): Deleted. (coding-system-unification-table-for-decode): New function. (coding-system-unification-table-for-encode): New function. --- lisp/international/mule-util.el | 15 ++++++++++++--- 1 file 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))))) -- 2.39.2