Use coding-system-put to set coding system

properties, post-read-conversion and pre-write-conversion.

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)