diff options
| author | Kenichi Handa | 1998-05-18 01:01:00 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-05-18 01:01:00 +0000 |
| commit | d2a1ee18b8fa524b509f4346b5419d52a99ab645 (patch) | |
| tree | d1907e5cf04e2dab3e6bbcb1a6108adcba690b1d | |
| parent | b25eef20fdf530ff8cfca023d53bbeaf07b5b51f (diff) | |
| download | emacs-d2a1ee18b8fa524b509f4346b5419d52a99ab645.tar.gz emacs-d2a1ee18b8fa524b509f4346b5419d52a99ab645.zip | |
Change term unification to
translation throughtout the file.
| -rw-r--r-- | lisp/international/mule-conf.el | 11 | ||||
| -rw-r--r-- | lisp/international/mule-util.el | 12 |
2 files changed, 12 insertions, 11 deletions
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index 41ac7b7971a..c6acf6b7f8b 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el | |||
| @@ -195,17 +195,18 @@ | |||
| 195 | (setup-special-charsets) | 195 | (setup-special-charsets) |
| 196 | 196 | ||
| 197 | 197 | ||
| 198 | ;; These are tables for unifying characters on decoding and encoding. | 198 | ;; These are tables for translating characters on decoding and |
| 199 | (define-character-unification-table | 199 | ;; encoding. |
| 200 | (define-character-translation-table | ||
| 200 | 'oldjis-newjis-jisroman-ascii | 201 | 'oldjis-newjis-jisroman-ascii |
| 201 | (list (cons (make-char 'japanese-jisx0208-1978) | 202 | (list (cons (make-char 'japanese-jisx0208-1978) |
| 202 | (make-char 'japanese-jisx0208)) | 203 | (make-char 'japanese-jisx0208)) |
| 203 | (cons (make-char 'latin-jisx0201) (make-char 'ascii)))) | 204 | (cons (make-char 'latin-jisx0201) (make-char 'ascii)))) |
| 204 | 205 | ||
| 205 | (setq standard-character-unification-table-for-decode | 206 | (setq standard-character-translation-table-for-decode |
| 206 | (get 'oldjis-newjis-jisroman-ascii 'unification-table)) | 207 | (get 'oldjis-newjis-jisroman-ascii 'character-translation-table)) |
| 207 | 208 | ||
| 208 | (setq standard-character-unification-table-for-encode nil) | 209 | (setq standard-character-translation-table-for-encode nil) |
| 209 | 210 | ||
| 210 | 211 | ||
| 211 | ;;; Make fundamental coding systems. | 212 | ;;; Make fundamental coding systems. |
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 38178be30b0..ce6076faab0 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el | |||
| @@ -231,14 +231,14 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil | |||
| 231 | (coding-system-get coding-system 'pre-write-conversion)) | 231 | (coding-system-get coding-system 'pre-write-conversion)) |
| 232 | 232 | ||
| 233 | ;;;###autoload | 233 | ;;;###autoload |
| 234 | (defun coding-system-unification-table-for-decode (coding-system) | 234 | (defun coding-system-translation-table-for-decode (coding-system) |
| 235 | "Return the value of CODING-SYSTEM's unification-table-for-decode property." | 235 | "Return the value of CODING-SYSTEM's translation-table-for-decode property." |
| 236 | (coding-system-get coding-system 'character-unification-table-for-decode)) | 236 | (coding-system-get coding-system 'character-translation-table-for-decode)) |
| 237 | 237 | ||
| 238 | ;;;###autoload | 238 | ;;;###autoload |
| 239 | (defun coding-system-unification-table-for-encode (coding-system) | 239 | (defun coding-system-translation-table-for-encode (coding-system) |
| 240 | "Return the value of CODING-SYSTEM's unification-table-for-encode property." | 240 | "Return the value of CODING-SYSTEM's translation-table-for-encode property." |
| 241 | (coding-system-get coding-system 'character-unification-table-for-encode)) | 241 | (coding-system-get coding-system 'character-translation-table-for-encode)) |
| 242 | 242 | ||
| 243 | (defun coding-system-lessp (x y) | 243 | (defun coding-system-lessp (x y) |
| 244 | (cond ((eq x 'no-conversion) t) | 244 | (cond ((eq x 'no-conversion) t) |