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 c57ab6c90b4716bfb0e6eb18e15ce65a7e2105b1..0e3cfb910805e4ee19441ff10d675e815e176f59 100644 (file)
--- 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 d408f86de0563aa71ed62a34741f2acd33f15104..2c9f93780d868512eb7f9468ebd38dd3bbd13dae 100644 (file)
--- 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 51f9bd4313490ea5753c68d713fd9507b447fcc5..5207b514c63468286fbf5cd6d0c2b9135b5b2a17 100644 (file)
--- 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)