Mercurial > hg > xemacs-beta

comparison lisp/mule/thai-xtis.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 74fd4e045ea6
children 943eaba38521
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
340 (progn 340 (progn
341 (make-coding-system 341 (make-coding-system
342 'tis-620 'ccl 342 'tis-620 'ccl
343 "external=tis620, internal=thai-xtis" 343 "external=tis620, internal=thai-xtis"
344 `(mnemonic "TIS620" 344 `(mnemonic "TIS620"
345 decode ,ccl-decode-thai-xtis 345 decode ccl-decode-thai-xtis
346 encode ,ccl-encode-thai-xtis)) 346 encode ccl-encode-thai-xtis))
347 (coding-system-put 'tis-620 'category 'iso-8-1)) 347 (coding-system-put 'tis-620 'category 'iso-8-1))
348 (make-coding-system 348 (make-coding-system
349 'tis-620 4 ?T "external=tis620, internal=thai-xtis" 349 'tis-620 4 ?T "external=tis620, internal=thai-xtis"
350 '(ccl-decode-thai-xtis . ccl-encode-thai-xtis) 350 '(ccl-decode-thai-xtis . ccl-encode-thai-xtis)
351 '((safe-charsets . t))) 351 '((safe-charsets . t)))