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