diff options
Diffstat (limited to 'lisp/language/tv-util.el')
| -rw-r--r-- | lisp/language/tv-util.el | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el index c7e8f8da97e..312ee1f41a3 100644 --- a/lisp/language/tv-util.el +++ b/lisp/language/tv-util.el @@ -131,17 +131,13 @@ ;;;###autoload -(defun tai-viet-composition-function (pos &optional string) - (let (to) - (if string - (progn - (if (string-match tai-viet-re string pos) - (tai-viet-compose-string pos (match-end 0) string) - (1+ pos))) - (goto-char pos) - (if (looking-at tai-viet-re) - (tai-viet-compose-region pos (match-end 0)) - (1+ pos))))) +(defun tai-viet-composition-function (from to font-object string) + (if string + (if (string-match tai-viet-re string from) + (tai-viet-compose-string from (match-end 0) string)) + (goto-char from) + (if (looking-at tai-viet-re) + (tai-viet-compose-region from (match-end 0))))) ;; (provide 'tai-viet-util) |