Mercurial > hg > xemacs-beta

comparison lisp/mule/thai-hooks.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children fe104dbd9147
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
40 40
41 (make-coding-system 41 (make-coding-system
42 'tis620 'iso2022 42 'tis620 'iso2022
43 "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)." 43 "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)."
44 '(charset-g0 ascii 44 '(charset-g0 ascii
45 charset-g1 thai 45 charset-g1 thai-tis620
46 no-ascii-cntl t 46 no-ascii-cntl t
47 mnemonic "TIS620" 47 mnemonic "TIS620"
48 post-read-conversion thai-compose-region 48 post-read-conversion thai-compose-region
49 pre-write-conversion decompose-region 49 pre-write-conversion decompose-region
50 )) 50 ))
51 51
52 (add-hook 'quail-package-alist '("thai" "quail/thai")) 52 (add-hook 'quail-package-alist '("thai" "quail/thai"))
53 53
54 (define-language-environment 'thai 54 (define-language-environment 'thai
55 "Thai" 55 "Thai"
56 #'(lambda () 56 (lambda ()
57 (set-coding-category-system 'iso-8-designate 'tis620) 57 (set-coding-category-system 'iso-8-designate 'tis620)
58 (set-coding-priority-list '(iso-8-designate iso-8-1)) 58 (set-coding-priority-list '(iso-8-designate iso-8-1))
59 (set-default-file-coding-system 'tis620) 59 (set-default-file-coding-system 'tis620)))
60 (setq-default quail-current-package (assoc "thai" quail-package-alist)))) 60 ;;(setq-default quail-current-package (assoc "thai" quail-package-alist))))
61 61