Mercurial > emacs
comparison lisp/international/mule-util.el @ 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 | 90119d523093 |
| children | fc4aaf1b1772 |
comparison
equal
deleted
inserted
replaced
| 22125:8e8f1bc7f743 | 22126:97cf1cae1971 |
|---|---|
| 229 (defun coding-system-pre-write-conversion (coding-system) | 229 (defun coding-system-pre-write-conversion (coding-system) |
| 230 "Return the value of CODING-SYSTEM's pre-write-conversion property." | 230 "Return the value of CODING-SYSTEM's pre-write-conversion property." |
| 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) |
| 245 ((eq y 'no-conversion) nil) | 245 ((eq y 'no-conversion) nil) |
| 246 ((eq x 'emacs-mule) t) | 246 ((eq x 'emacs-mule) t) |