Mercurial > emacs

comparison lisp/language/tibetan.el @ 20108:00b744016673

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use coding-system-put to set coding system properties, post-read-conversion and pre-write-conversion.
author Kenichi Handa <handa@m17n.org>
date Tue, 21 Oct 1997 10:45:26 +0000
parents 8b4a66c66dd6
children dce0d588d203
comparison
equal deleted inserted replaced
20107:4595a463b105 20108:00b744016673
92 'tibetan 2 ?Q 92 'tibetan 2 ?Q
93 "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)" 93 "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)"
94 '((ascii t) (tibetan t) nil nil 94 '((ascii t) (tibetan t) nil nil
95 nil ascii-eol)) 95 nil ascii-eol))
96 96
97 (put 'tibetan 'post-read-conversion 'tibetan-post-read-conversion) 97 (coding-system-put 'tibetan 'post-read-conversion
98 (put 'tibetan 'pre-write-conversion 'tibetan-pre-write-conversion) 98 'tibetan-post-read-conversion)
99 (coding-system-put 'tibetan 'pre-write-conversion
100 'tibetan-pre-write-conversion)
99 101
100 (set-language-info-alist 102 (set-language-info-alist
101 "Tibetan" '((setup-function . setup-tibetan-environment) 103 "Tibetan" '((setup-function . setup-tibetan-environment)
102 (charset . (tibetan tibetan-1-column)) 104 (charset . (tibetan tibetan-1-column))
103 (coding-system . (tibetan)) 105 (coding-system . (tibetan))