diff options
| -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 @@ | |||
| 131 | 131 | ||
| 132 | 132 | ||
| 133 | ;;;###autoload | 133 | ;;;###autoload |
| 134 | (defun tai-viet-composition-function (pos &optional string) | 134 | (defun tai-viet-composition-function (from to font-object string) |
| 135 | (let (to) | 135 | (if string |
| 136 | (if string | 136 | (if (string-match tai-viet-re string from) |
| 137 | (progn | 137 | (tai-viet-compose-string from (match-end 0) string)) |
| 138 | (if (string-match tai-viet-re string pos) | 138 | (goto-char from) |
| 139 | (tai-viet-compose-string pos (match-end 0) string) | 139 | (if (looking-at tai-viet-re) |
| 140 | (1+ pos))) | 140 | (tai-viet-compose-region from (match-end 0))))) |
| 141 | (goto-char pos) | ||
| 142 | (if (looking-at tai-viet-re) | ||
| 143 | (tai-viet-compose-region pos (match-end 0)) | ||
| 144 | (1+ pos))))) | ||
| 145 | 141 | ||
| 146 | ;; | 142 | ;; |
| 147 | (provide 'tai-viet-util) | 143 | (provide 'tai-viet-util) |