mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

Fix previous change.

Browse Source
This commit is contained in:
Kenichi Handa 2005-04-09 01:42:04 +00:00
parent a17ae96ac4
commit 36cacb1f85
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/language/thai-util.el
View File

@ -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)