procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

(thai-compose-string): New function.

Browse source
This commit is contained in:
Kenichi Handa 1999-01-05 04:07:10 +00:00
parent 971c2d04d2
commit 0a57cf5133
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/language/thai-util.el
View file

@ -163,6 +163,25 @@ positions (integers or markers) specifying the region."
(compose-region (match-beginning 0) (match-end 0)))
(set-category-table current-ctbl)))))
;;;###autoload
(defun thai-compose-string (string)
"Compose Thai characters in STRING and return the resulting string."
(let ((current-ctbl (category-table)))
(set-category-table thai-category-table)
(unwind-protect
(let ((idx 0)
(new ""))
(while (string-match "\\c+\\c-+" string idx)
(if (< idx (match-beginning 0))
(setq new
(concat new (substring string idx (match-beginning 0)))))
(setq new (concat new (compose-string (match-string 0 string))))
(setq idx (match-end 0)))
(if (< idx (length string))
(setq new (concat new (substring string idx))))
new)
(set-category-table current-ctbl))))
;;;###autoload
(defun thai-compose-buffer ()
"Compose Thai characters in the current buffer."