mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

Use coding-system-put to set coding system

Browse Source 
properties, post-read-conversion and pre-write-conversion.
This commit is contained in:
Kenichi Handa 1997-10-21 10:45:26 +00:00
parent 73b4b26409
commit d9da4d0c39
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/language/thai.el
View File

@ -33,8 +33,10 @@
"8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)" "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)"
'((ascii t) (thai-tis620 t) nil nil '((ascii t) (thai-tis620 t) nil nil
nil ascii-eol)) nil ascii-eol))
(put 'thai-tis620 'post-read-conversion 'thai-post-read-conversion) (coding-system-put 'thai-tis620 'post-read-conversion
(put 'thai-tis620 'pre-write-conversion 'thai-pre-write-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 'th-tis620 'thai-tis620)
(define-coding-system-alias 'tis620 'thai-tis620) (define-coding-system-alias 'tis620 'thai-tis620)

6
lisp/language/tibetan.el
View File

@ -94,8 +94,10 @@
'((ascii t) (tibetan t) nil nil '((ascii t) (tibetan t) nil nil
nil ascii-eol)) nil ascii-eol))
(put 'tibetan 'post-read-conversion 'tibetan-post-read-conversion) (coding-system-put 'tibetan 'post-read-conversion
(put 'tibetan 'pre-write-conversion 'tibetan-pre-write-conversion) 'tibetan-post-read-conversion)
(coding-system-put 'tibetan 'pre-write-conversion
'tibetan-pre-write-conversion)
(set-language-info-alist (set-language-info-alist
"Tibetan" '((setup-function . setup-tibetan-environment) "Tibetan" '((setup-function . setup-tibetan-environment)

6
lisp/language/vietnamese.el
View File

@ -218,8 +218,10 @@ Both tables are indexed by the position code of Vietnamese characters.")
'vietnamese-viqr 0 ?q 'vietnamese-viqr 0 ?q
"Vietnamese latin transcription (VIQR)" "Vietnamese latin transcription (VIQR)"
nil) nil)
(put 'vietnamese-viqr 'post-read-conversion 'viqr-post-read-conversion) (coding-system-put 'vietnamese-viqr 'post-read-conversion
(put 'vietnamese-viqr 'pre-write-conversion 'viqr-pre-write-conversion) 'viqr-post-read-conversion)
(coding-system-put 'vietnamese-viqr 'pre-write-conversion
'viqr-pre-write-conversion)
(define-coding-system-alias 'viqr 'vietnamese-viqr) (define-coding-system-alias 'viqr 'vietnamese-viqr)