Mercurial > emacs
comparison leim/quail/thai.el @ 19409:c816908e9589
(thai-consonant-input): Typo fixed.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 18 Aug 1997 10:54:31 +0000 |
| parents | 751941736224 |
| children | 196438eb86d1 |
comparison
equal
deleted
inserted
replaced
| 19408:7457b6e05a60 | 19409:c816908e9589 |
|---|---|
| 173 ;; corresponding to the current key when Thai consonant is entered. | 173 ;; corresponding to the current key when Thai consonant is entered. |
| 174 (defun thai-consonant-input (key len) | 174 (defun thai-consonant-input (key len) |
| 175 (let ((quail-package-name (quail-name))) | 175 (let ((quail-package-name (quail-name))) |
| 176 (setq thai-current-keyboard-type | 176 (setq thai-current-keyboard-type |
| 177 (cond ((string= quail-package-name "thai-pattachote") 'pattachote) | 177 (cond ((string= quail-package-name "thai-pattachote") 'pattachote) |
| 178 (t (string= quail-package-name "thai-kesmanee") 'kesmanee))) | 178 ((string= quail-package-name "thai-kesmanee") 'kesmanee) |
| 179 (t (error "Invalid Quail package %s" quail-package-name)))) | |
| 179 (copy-alist (nth 2 (thai-keyboard-info thai-current-keyboard-type))))) | 180 (copy-alist (nth 2 (thai-keyboard-info thai-current-keyboard-type))))) |
| 180 | 181 |
| 181 ;; Thai Kesmanee keyboard support. | 182 ;; Thai Kesmanee keyboard support. |
| 182 | 183 |
| 183 (quail-define-package | 184 (quail-define-package |