(thai-generate-quail-map): If the length of

translation is more than one, compose it.

diff --git a/leim/quail/thai.el b/leim/quail/thai.el
index df215dff1165f95aa443b46bff742b52e42f1392..a55e5f54eafaeb23456dcaa64c580d9b8ea536d8 100644 (file)
--- a/leim/quail/thai.el
+++ b/leim/quail/thai.el
@@ -51,7 +51,7 @@
            nil
          (if (> (length trans) 1)
              (setq ptype 'voweltone
-                   trans (vector trans))
+                   trans (vector (compose-string trans)))
            (setq ptype (get-char-code-property (aref trans 0) 'phonetic-type))
            (cond ((memq ptype '(vowel-upper vowel-lower))
                   (setq ptype 'vowel))