[Emacs-diffs] Changes to emacs/leim/quail/thai.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/02/01 16:01:31

Index: leim/quail/thai.el
===================================================================
RCS file: /cvsroot/emacs/emacs/leim/quail/thai.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- leim/quail/thai.el  8 Jan 2008 20:44:11 -0000       1.21
+++ leim/quail/thai.el  1 Feb 2008 16:01:22 -0000       1.22
@@ -1,4 +1,4 @@
-;;; thai.el --- Quail package for inputting Thai characters
+;;; thai.el --- Quail package for inputting Thai characters -*-coding: 
iso-2022-7bit;-*-
 
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
 ;;   2005, 2006, 2007, 2008
@@ -29,7 +29,6 @@
 ;;; Code:
 
 (require 'quail)
-(require 'thai-util)
 
 (defmacro thai-generate-quail-map (translation-table)
   (let (map)
@@ -54,8 +53,7 @@
     Don't know where to assign characters ',Tz(B' and ',T{(B'."
  nil t t t t nil nil nil nil nil t)
 
-(quail-install-map
- (thai-generate-quail-map
+(thai-generate-quail-map
   [
    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0     ; control codes
    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0     ; control codes
@@ -85,8 +83,7 @@
    ",Ti(B" ",TC(B" ",Th(B" ",TR(B" ",TJ(B" ",T7(B" ",TW(B" 
",T9(B"     ; h .. o
    ",TB(B" ",Tf(B" ",T>(B" ",TK(B" ",TP(B" ",TU(B" ",TM(B" 
",Td(B"     ; p .. w
    ",T;(B" ",TQ(B" ",T<(B" ",T0(B" ",T%(B" "," "%" 0 ; x .. DEL
-   ]))
-
+  ])
 
 
 ;; Thai Pattachote keyboard support.
@@ -96,9 +93,9 @@
  "Thai Pattachote input method with TIS620 keyboard layout"
  nil t t t t nil nil nil nil nil t)
 
-(quail-install-map
- (thai-generate-quail-map
-  [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    ; control codes
+(thai-generate-quail-map
+ [
+  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0      ; control codes
     0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    ; control codes
     0 "+" ",T1(B" "/" "," "?" "_" ",T"(B"  ; SPC .. '
     "(" ")" "." "%" ",TP(B" ",Tq(B" ",T((B" ",T>(B"    ; ( .. /
@@ -112,7 +109,7 @@
     ",TU(B" ",TA(B" ",TR(B" ",T9(B" ",T`(B" ",TJ(B" ",T$(B" 
",TG(B"    ; h .. o
     ",Ta(B" ",Tg(B" ",TM(B" ",T7(B" ",TC(B" ",T4(B" ",TK(B" 
",T5(B"    ; p .. w
     ",T;(B" ",Th(B" ",T:(B" ",TO(B" ",Tm(B" ",TF(B" ",T%(B" 0    
; x .. DEL
-    ]))
+  ])
 
 ;;; arch-tag: fed6c468-0616-44b0-88bf-47347bf64825
 ;;; thai.el ends here