diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-22 01:22:49 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-22 01:22:49 +0000 |
| commit | 347617467920f4b02e2883daa879fd09860c5d68 (patch) | |
| tree | 139845b8adb4324d65c628ff484178bd133c728c /lisp | |
| parent | 87aba78889cca651736f6744665fa3b566318bb2 (diff) | |
| download | emacs-347617467920f4b02e2883daa879fd09860c5d68.tar.gz | |
(coding-system-unification-table):
Deleted.
(coding-system-unification-table-for-decode): New function.
(coding-system-unification-table-for-encode): New function.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-util.el | 15 |
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))))) |