diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-04-09 01:42:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-04-09 01:42:04 +0000 |
| commit | 36cacb1f85bc87829ac89f37708c018c297da8c4 (patch) | |
| tree | 0f6c9d113afd162cb97bb11751b7c831b8667f21 /lisp/language/thai-util.el | |
| parent | a17ae96ac4e644c0fc9eaef0b0e926c10e6969d2 (diff) | |
| download | emacs-36cacb1f85bc87829ac89f37708c018c297da8c4.tar.gz | |
Fix previous change.
Diffstat (limited to 'lisp/language/thai-util.el')
| -rw-r--r-- | lisp/language/thai-util.el | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index cbfc82c9dc8..75d8c9fc797 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el @@ -54,17 +54,6 @@ "\\cc\\(\\cu\\|\\cI\\cU\\|\\cv\\ct?\\)\\|\\cv\\ct\\|\\cI\\cU" "Regular expression matching a Thai composite sequence.") -(defun thai-self-insert-command (&optional n) - "Insert the Thai character you type. -The character will be composed with the surrounding Thai character -if necessary." - (interactive "*p") - (let ((pos (point)) - category-set ch) - (self-insert-command n) - (or thai-auto-composition-mode - (thai-auto-composition (1- (point)) (point) 0)))) - (let ((l '((?,T!(B consonant "LETTER KO KAI") ; 0xA1 (?,T"(B consonant "LETTER KHO KHAI") ; 0xA2 (?,T#(B consonant "LETTER KHO KHUAT") ; 0xA3 @@ -167,8 +156,7 @@ if necessary." (ptype (nth 1 elm))) (put-char-code-property char 'phonetic-type ptype) (cond ((eq ptype 'consonant) - (modify-category-entry char ?c thai-category-table) - (global-set-key (vector char) 'thai-self-insert-command)) + (modify-category-entry char ?c thai-category-table)) ((memq ptype '(vowel-upper vowel-lower)) (modify-category-entry char ?v thai-category-table) (if (= char ?,TT(B) |