tamago-current.diff.gz in [tamago:00423] is applied.

[elisp/tamago.git] / its / thai.el

diff --git a/its/thai.el b/its/thai.el
index 1a1f6cb..91753eb 100644 (file)
--- a/its/thai.el
+++ b/its/thai.el
@@ -69,7 +69,7 @@
        (setq next-keyseq (concat keyseq (car (car vowel)))
              next-output (concat output (cdr (car vowel)))
              vowel (cdr vowel))
-        (its-defrule next-keyseq (compose-string next-output))
+        (its-defrule next-keyseq `(eval compose-string ,next-output))
        (its-thai-add-tone next-keyseq next-output tone))))
 
   (defun its-thai-add-tone (keyseq output tone)
@@ -78,7 +78,7 @@
        (setq next-keyseq (concat keyseq (car (car tone)))
              next-output (concat output (cdr (car tone)))
               tone (cdr tone))
-        (its-defrule next-keyseq (compose-string next-output))))))
+        (its-defrule next-keyseq `(eval compose-string ,next-output))))))
 
 ;; Thai Kesmanee keyboard support.
 
@@ -93,7 +93,7 @@
     ("4"  "\e,T@\e(B" consonant)    ("$"  "\e,Ts\e(B")
     ("5"  "\e,T6\e(B" consonant)    ("%"  "\e,Tt\e(B")
     ("6"  "\e,TX\e(B" vowel)        ("^"  "\e,TY\e(B" vowel)
-    ("7"  "\e,TV\e(B" vowel)        ("&"  "\e0\e,TQi\e(B\e1" vowel)
+    ("7"  "\e,TV\e(B" vowel)        ("&"  "\e0\e,TQi\e1\e(B" vowel)
     ("8"  "\e,T$\e(B" consonant)    ("*"  "\e,Tu\e(B")
     ("9"  "\e,T5\e(B" consonant)    ("("  "\e,Tv\e(B")
     ("0"  "\e,T(\e(B" consonant)    (")"  "\e,Tw\e(B")