Mercurial > emacs
comparison lisp/language/thai-util.el @ 91284:d1ec766050a6
(thai-composition-function): Fix arguments.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 25 Dec 2007 11:05:22 +0000 |
| parents | f55f9811f5d7 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91283:663fd3a26530 | 91284:d1ec766050a6 |
|---|---|
| 227 "Compose Thai characters in the current buffer." | 227 "Compose Thai characters in the current buffer." |
| 228 (interactive) | 228 (interactive) |
| 229 (thai-compose-region (point-min) (point-max))) | 229 (thai-compose-region (point-min) (point-max))) |
| 230 | 230 |
| 231 ;;;###autoload | 231 ;;;###autoload |
| 232 (defun thai-composition-function (pos &optional string) | 232 (defun thai-composition-function (pos to font-object string) |
| 233 (setq pos (1- pos)) | 233 (setq pos (1- pos)) |
| 234 (with-category-table thai-category-table | 234 (with-category-table thai-category-table |
| 235 (if string | 235 (if string |
| 236 (if (and (>= pos 0) | 236 (if (and (>= pos 0) |
| 237 (eq (string-match thai-composition-pattern string pos) pos)) | 237 (eq (string-match thai-composition-pattern string pos) pos)) |