- (setq state (its-goto-state (car pair)))
- (its-make-next-state state -1 (aref (cdr pair) 0) (cdr pair))
- (its-define-thai-add-vowel state (car pair) (cdr pair) vowel tone)
- (its-define-thai-add-tone state (car pair) (cdr pair) tone)
- (its-defrule-otherwise state (cdr pair)))))
-
- (defun its-define-thai-add-vowel (state keyseq output vowel tone)
- (let (next-state next-key next-keyseq next-output composed-output)
+ (its-thai-add-vowel keyseq output vowel tone)
+ (its-thai-add-tone keyseq output tone))))
+
+ (defun its-thai-add-vowel (keyseq output vowel tone)
+ (let (next-keyseq next-output)