Mercurial > emacs
changeset 20108:00b744016673
Use coding-system-put to set coding system
properties, post-read-conversion and pre-write-conversion.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 21 Oct 1997 10:45:26 +0000 |
| parents | 4595a463b105 |
| children | b68cac3f8e3a |
| files | lisp/language/thai.el lisp/language/tibetan.el lisp/language/vietnamese.el |
| diffstat | 3 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/thai.el Tue Oct 21 10:45:26 1997 +0000 +++ b/lisp/language/thai.el Tue Oct 21 10:45:26 1997 +0000 @@ -33,8 +33,10 @@ "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)" '((ascii t) (thai-tis620 t) nil nil nil ascii-eol)) -(put 'thai-tis620 'post-read-conversion 'thai-post-read-conversion) -(put 'thai-tis620 'pre-write-conversion 'thai-pre-write-conversion) +(coding-system-put 'thai-tis620 'post-read-conversion + 'thai-post-read-conversion) +(coding-system-put 'thai-tis620 'pre-write-conversion + 'thai-pre-write-conversion) (define-coding-system-alias 'th-tis620 'thai-tis620) (define-coding-system-alias 'tis620 'thai-tis620)
--- a/lisp/language/tibetan.el Tue Oct 21 10:45:26 1997 +0000 +++ b/lisp/language/tibetan.el Tue Oct 21 10:45:26 1997 +0000 @@ -94,8 +94,10 @@ '((ascii t) (tibetan t) nil nil nil ascii-eol)) -(put 'tibetan 'post-read-conversion 'tibetan-post-read-conversion) -(put 'tibetan 'pre-write-conversion 'tibetan-pre-write-conversion) +(coding-system-put 'tibetan 'post-read-conversion + 'tibetan-post-read-conversion) +(coding-system-put 'tibetan 'pre-write-conversion + 'tibetan-pre-write-conversion) (set-language-info-alist "Tibetan" '((setup-function . setup-tibetan-environment)
--- a/lisp/language/vietnamese.el Tue Oct 21 10:45:26 1997 +0000 +++ b/lisp/language/vietnamese.el Tue Oct 21 10:45:26 1997 +0000 @@ -218,8 +218,10 @@ 'vietnamese-viqr 0 ?q "Vietnamese latin transcription (VIQR)" nil) -(put 'vietnamese-viqr 'post-read-conversion 'viqr-post-read-conversion) -(put 'vietnamese-viqr 'pre-write-conversion 'viqr-pre-write-conversion) +(coding-system-put 'vietnamese-viqr 'post-read-conversion + 'viqr-post-read-conversion) +(coding-system-put 'vietnamese-viqr 'pre-write-conversion + 'viqr-pre-write-conversion) (define-coding-system-alias 'viqr 'vietnamese-viqr)