Mercurial > emacs
changeset 22126:97cf1cae1971
Change term unification to
translation throughtout the file.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 18 May 1998 01:01:00 +0000 |
| parents | 8e8f1bc7f743 |
| children | dc00ef92855c |
| files | lisp/international/mule-conf.el lisp/international/mule-util.el |
| diffstat | 2 files changed, 12 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-conf.el Mon May 18 01:01:00 1998 +0000 +++ b/lisp/international/mule-conf.el Mon May 18 01:01:00 1998 +0000 @@ -195,17 +195,18 @@ (setup-special-charsets) -;; These are tables for unifying characters on decoding and encoding. -(define-character-unification-table +;; These are tables for translating characters on decoding and +;; encoding. +(define-character-translation-table 'oldjis-newjis-jisroman-ascii (list (cons (make-char 'japanese-jisx0208-1978) (make-char 'japanese-jisx0208)) (cons (make-char 'latin-jisx0201) (make-char 'ascii)))) -(setq standard-character-unification-table-for-decode - (get 'oldjis-newjis-jisroman-ascii 'unification-table)) +(setq standard-character-translation-table-for-decode + (get 'oldjis-newjis-jisroman-ascii 'character-translation-table)) -(setq standard-character-unification-table-for-encode nil) +(setq standard-character-translation-table-for-encode nil) ;;; Make fundamental coding systems.
--- a/lisp/international/mule-util.el Mon May 18 01:01:00 1998 +0000 +++ b/lisp/international/mule-util.el Mon May 18 01:01:00 1998 +0000 @@ -231,14 +231,14 @@ (coding-system-get coding-system 'pre-write-conversion)) ;;;###autoload -(defun coding-system-unification-table-for-decode (coding-system) - "Return the value of CODING-SYSTEM's unification-table-for-decode property." - (coding-system-get coding-system 'character-unification-table-for-decode)) +(defun coding-system-translation-table-for-decode (coding-system) + "Return the value of CODING-SYSTEM's translation-table-for-decode property." + (coding-system-get coding-system 'character-translation-table-for-decode)) ;;;###autoload -(defun coding-system-unification-table-for-encode (coding-system) - "Return the value of CODING-SYSTEM's unification-table-for-encode property." - (coding-system-get coding-system 'character-unification-table-for-encode)) +(defun coding-system-translation-table-for-encode (coding-system) + "Return the value of CODING-SYSTEM's translation-table-for-encode property." + (coding-system-get coding-system 'character-translation-table-for-encode)) (defun coding-system-lessp (x y) (cond ((eq x 'no-conversion) t)