# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 871901671 0
# Node ID c816908e9589211c5418a05e8fa674ee4abbe2a8
# Parent  7457b6e05a60c270a5bc03d8a017d75177e2e1f8
(thai-consonant-input): Typo fixed.

diff -r 7457b6e05a60 -r c816908e9589 leim/quail/thai.el
--- a/leim/quail/thai.el	Mon Aug 18 10:53:05 1997 +0000
+++ b/leim/quail/thai.el	Mon Aug 18 10:54:31 1997 +0000
@@ -175,7 +175,8 @@
   (let ((quail-package-name (quail-name)))
     (setq thai-current-keyboard-type
 	  (cond ((string= quail-package-name "thai-pattachote") 'pattachote)
-		(t (string= quail-package-name "thai-kesmanee") 'kesmanee)))
+		((string= quail-package-name "thai-kesmanee") 'kesmanee)
+		(t (error "Invalid Quail package %s" quail-package-name))))
     (copy-alist (nth 2 (thai-keyboard-info thai-current-keyboard-type)))))
 
 ;; Thai Kesmanee keyboard support.