Mercurial > hg > xemacs-beta

comparison lisp/mule/thai-hooks.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents fe104dbd9147
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
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-buffer-file-coding-system 'tis620))) 59 (set-default-buffer-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 ))