From: Kenichi Handa <handa@m17n.org>
Date: Tue, 21 Oct 1997 10:45:26 +0000 (+0000)
Subject: Use coding-system-put to set coding system
X-Git-Tag: emacs-20.3~2965
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9da4d0c396fa2d3f7808e3c71f838c0d8edfe17;p=emacs.git

Use coding-system-put to set coding system
properties, post-read-conversion and pre-write-conversion.
---

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)