Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/thai-hooks.el	Mon Aug 13 09:03:47 2007 +0200
+++ b/lisp/mule/thai-hooks.el	Mon Aug 13 09:04:33 2007 +0200
@@ -42,7 +42,7 @@
  'tis620 'iso2022
  "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)."
  '(charset-g0 ascii
-   charset-g1 thai
+   charset-g1 thai-tis620
    no-ascii-cntl t
    mnemonic "TIS620"
    post-read-conversion thai-compose-region
@@ -53,9 +53,9 @@
 
 (define-language-environment 'thai
   "Thai"
-  #'(lambda ()
-      (set-coding-category-system 'iso-8-designate 'tis620)
-      (set-coding-priority-list '(iso-8-designate iso-8-1))
-      (set-default-file-coding-system 'tis620)
-      (setq-default quail-current-package (assoc "thai" quail-package-alist))))
+  (lambda ()
+    (set-coding-category-system 'iso-8-designate 'tis620)
+    (set-coding-priority-list '(iso-8-designate iso-8-1))
+    (set-default-file-coding-system 'tis620)))
+    ;;(setq-default quail-current-package (assoc "thai" quail-package-alist))))