diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-10-21 10:45:26 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-10-21 10:45:26 +0000 |
| commit | 6458b60b744f203c039a3685b763eb13a4447e4b (patch) | |
| tree | e641b1ee3d34f6e41e92364c67b2c4d3ab9f461c /lisp/language | |
| parent | 29391df0feb5d363036192c408435f4741b709b8 (diff) | |
| download | emacs-6458b60b744f203c039a3685b763eb13a4447e4b.tar.gz | |
Use coding-system-put to set coding system
properties, post-read-conversion and pre-write-conversion.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/thai.el | 6 | ||||
| -rw-r--r-- | lisp/language/tibetan.el | 6 | ||||
| -rw-r--r-- | lisp/language/vietnamese.el | 6 |
3 files changed, 12 insertions, 6 deletions
diff --git a/lisp/language/thai.el b/lisp/language/thai.el index c57ab6c90b4..0e3cfb91080 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -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) diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index d408f86de05..2c9f93780d8 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -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) diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el index 51f9bd43134..5207b514c63 100644 --- a/lisp/language/vietnamese.el +++ b/lisp/language/vietnamese.el @@ -218,8 +218,10 @@ Both tables are indexed by the position code of Vietnamese characters.") '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) |